From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Fri, 5 Jun 1992 19:41:33 +0000 (+0000)
Subject: ESTALE is not present in all versions of Unix.
X-Git-Tag: 20090517-FFI~9279
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1152e9620f56ec83581b1a5f260fa93335cdcff2;p=mit-scheme.git

ESTALE is not present in all versions of Unix.
---

diff --git a/v7/src/microcode/pruxfs.c b/v7/src/microcode/pruxfs.c
index e87689b77..a4ecb57ae 100644
--- a/v7/src/microcode/pruxfs.c
+++ b/v7/src/microcode/pruxfs.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/pruxfs.c,v 9.48 1991/11/04 18:49:26 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/pruxfs.c,v 9.49 1992/06/05 19:41:33 jinx Exp $
 
-Copyright (c) 1987-91 Massachusetts Institute of Technology
+Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -304,7 +304,11 @@ DEFUN (file_touch, (filename), CONST char * filename)
 		protect_fd (fd);
 		break;
 	      }
-	    else if ((errno == ENOENT) || (errno == ESTALE))
+	    else if ((errno == ENOENT)
+#ifdef ESTALE
+		     || (errno == ESTALE)
+#endif
+		     )
 	      continue;
 	  }
 	if (count >= FILE_TOUCH_OPEN_TRIES)
@@ -376,8 +380,8 @@ The file must exist and you must be the owner (or superuser).")
     times.actime = arg_integer (2);
     times.modtime = arg_integer (3);
     STD_VOID_SYSTEM_CALL(syscall_utime, (UX_utime ((STRING_ARG (1)), &times)));
-    PRIMITIVE_RETURN (SHARP_F);
   }
+  PRIMITIVE_RETURN (SHARP_F);
 }
 
 DEFINE_PRIMITIVE ("FILE-EQ?", Prim_file_eq_p, 2, 2,