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

Fixes for some bugs introduced by the last commit.

This commit is contained in:
mainzelm 2002-10-23 11:51:21 +00:00
parent 96060828fa
commit c5c913b129
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
scsh/fileinfo.scm
View File

@ -150,37 +150,37 @@
(define (file-info-to-fname/fd/port predicate)
(lambda (fname/fd/port . maybe-chase?)
(apply file-info fname/fd/port maybe-chase?)))
(predicate (apply file-info fname/fd/port maybe-chase?))))
(define (file-info-directory? file-info)
(eq? 'directory (file-type file-info)))
(eq? 'directory (file-info:type file-info)))
(define file-directory?
(file-info-to-fname/fd/port file-info-directory?))
(define (file-info-fifo? file-info)
(eq? 'fifo (file-type file-info)))
(eq? 'fifo (file-info:type file-info)))
(define file-fifo? (file-info-to-fname/fd/port file-info-fifo?))
(define (file-info-regular? file-info)
(eq? 'regular (file-type file-info)))
(eq? 'regular (file-info:type file-info)))
(define file-regular? (file-info-to-fname/fd/port file-info-regular?))
(define (file-info-socket? file-info)
(eq? 'socket (file-type file-info)))
(eq? 'socket (file-info:type file-info)))
(define file-socket? (file-info-to-fname/fd/port file-info-socket?))
(define (file-info-special? file-info)
(let ((type (file-type file-info)))
(let ((type (file-info:type file-info)))
(or (eq? 'block-special type) (eq? 'char-special type))))
(define file-special? (file-info-to-fname/fd/port file-info-special?))
(define (file-info-symlink? file-info)
(eq? 'symlink (file-type file-info)))
(eq? 'symlink (file-info:type file-info)))
(define (file-symlink? fd/port/fname) ; No MAYBE-CHASE?, of course.
(file-info-symlink? (file-info fd/port/fname #f)))