Don't follow symbolic links

2005-10-11 15:39:20 +00:00 · 2005-10-11 15:39:20 +00:00 · ad17026fa6
parent 1671ae0ee3
commit ad17026fa6
1 changed files with 1 additions and 1 deletions
--- a/scheme/fs-object.scm
+++ b/scheme/fs-object.scm
@ -21,7 +21,7 @@
      (lambda (condition more)
        (format #t "condition while fs-object-info: ~a"  condition)
        #f)
-      (file-info (combine-path path name))))))
+      (file-info (combine-path path name) #f)))))

 (define-record-discloser :fs-object
  (lambda (r)