From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 10 May 2001 03:14:07 +0000 (+0000)
Subject: Fix bug: FILE-SYMBOLIC-LINK? is supposed to return the link contents
X-Git-Tag: 20090517-FFI~2831
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ed61961877a5c03b0415a6bcfd644e80209cd850;p=mit-scheme.git

Fix bug: FILE-SYMBOLIC-LINK? is supposed to return the link contents
if the result is true.  My rewrite returned #t in that case.
---

diff --git a/v7/src/runtime/sfile.scm b/v7/src/runtime/sfile.scm
index 071fa7f1f..fd230d252 100644
--- a/v7/src/runtime/sfile.scm
+++ b/v7/src/runtime/sfile.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: sfile.scm,v 14.25 2001/05/09 14:18:50 cph Exp $
+$Id: sfile.scm,v 14.26 2001/05/10 03:14:07 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -75,7 +75,8 @@ USA.
   (eq? 'DIRECTORY (file-type-indirect filename)))
 
 (define (file-symbolic-link? filename)
-  (eq? 'UNIX-SYMBOLIC-LINK (file-type-direct filename)))
+  ((ucode-primitive file-symlink? 1)
+   (->namestring (merge-pathnames filename))))
 
 (define (file-access filename amode)
   ((ucode-primitive file-access 2)