scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Don't follow symbolic links

This commit is contained in:
mainzelm 2005-10-11 15:39:20 +00:00
parent 1671ae0ee3
commit ad17026fa6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/fs-object.scm
View File

@ -21,7 +21,7 @@
(lambda (condition more) (lambda (condition more)
(format #t "condition while fs-object-info: ~a" condition) (format #t "condition while fs-object-info: ~a" condition)
#f) #f)
(file-info (combine-path path name)))))) (file-info (combine-path path name) #f)))))
(define-record-discloser :fs-object (define-record-discloser :fs-object
(lambda (r) (lambda (r)