From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 22 Jun 1990 01:44:14 +0000 (+0000)
Subject: In `OS_file_remove_link', delete regular files no matter how many
X-Git-Tag: 20090517-FFI~11358
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e570f2f160c97ba7196aaebd1923b00f74dfa45e;p=mit-scheme.git

In `OS_file_remove_link', delete regular files no matter how many
links they have.
---

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