From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 17 Jul 2001 02:08:50 +0000 (+0000)
Subject: Fix name of WIN32-NAMED-PIPE, which had underscore instead of hyphen.
X-Git-Tag: 20090517-FFI~2645
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a0c07cbf459565239b8786d990954417d474f0d1;p=mit-scheme.git

Fix name of WIN32-NAMED-PIPE, which had underscore instead of hyphen.
Also add alias FILE-SOFT-LINK?.
---

diff --git a/v7/src/runtime/sfile.scm b/v7/src/runtime/sfile.scm
index 8608bcba3..a297e499f 100644
--- a/v7/src/runtime/sfile.scm
+++ b/v7/src/runtime/sfile.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: sfile.scm,v 14.29 2001/06/02 15:39:02 cph Exp $
+$Id: sfile.scm,v 14.30 2001/07/17 02:08:50 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -59,7 +59,7 @@ USA.
 			    UNIX-NAMED-PIPE
 			    UNIX-SOCKET
 			    OS2-NAMED-PIPE
-			    WIN32-NAMED_PIPE)))
+			    WIN32-NAMED-PIPE)))
 		    (if (fix:< n (vector-length types))
 			(vector-ref types n)
 			'UNKNOWN))))))))
@@ -77,6 +77,7 @@ USA.
 (define (file-symbolic-link? filename)
   ((ucode-primitive file-symlink? 1)
    (->namestring (merge-pathnames filename))))
+(define file-soft-link? file-symbolic-link?)
 
 (define (file-access filename amode)
   ((ucode-primitive file-access 2)