From e570f2f160c97ba7196aaebd1923b00f74dfa45e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 22 Jun 1990 01:44:14 +0000
Subject: [PATCH] In `OS_file_remove_link', delete regular files no matter how
 many links they have.

---
 v7/src/microcode/uxfs.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/microcode/uxfs.c b/v7/src/microcode/uxfs.c
index 0f468ad65..67d96cdee 100644
--- a/v7/src/microcode/uxfs.c
+++ b/v7/src/microcode/uxfs.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxfs.c,v 1.1 1990/06/20 19:37:11 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxfs.c,v 1.2 1990/06/22 01:44:14 cph Rel $
 
 Copyright (c) 1990 Massachusetts Institute of Technology
 
@@ -105,7 +105,7 @@ DEFUN (OS_file_remove_link, (name), CONST char * name)
 {
   struct stat s;
   if (((UX_lstat (name, (&s))) == 0) &&
-      (((((s . st_mode) & S_IFMT) == S_IFREG) && ((s . st_nlink) > 1))
+      ((((s . st_mode) & S_IFMT) == S_IFREG)
 #ifdef HAVE_SYMBOLIC_LINKS
        || (((s . st_mode) & S_IFMT) == S_IFLNK)
 #endif
-- 
2.25.1