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

filename -> file-name

This commit is contained in:
Martin Gasbichler 2003-02-13 11:59:11 +00:00
parent 005c65f11c
commit 76f91f8abb
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/dir-streams/dir-stream-predicates.scm
View File

@ -51,8 +51,8 @@
(define (fs-object-name-matches? fso regexp)
(regexp-search? regexp (fs-object-name fso)))
(define (ds-object-filename-matches? fso regexp)
(regexp-search? regexp (fs-object-filename fso)))
(define (ds-object-file-name-matches? fso regexp)
(regexp-search? regexp (fs-object-file-name fso)))
;;; test stuff

4
scsh/dir-streams/dir-stream.scm
View File

@ -42,7 +42,7 @@
"/"
name)))
(define (fs-object-filename fs-object)
(define (fs-object-file-name fs-object)
(combine-path (fs-object-parent fs-object)
(fs-object-name fs-object)))
@ -119,7 +119,7 @@
; Example:
; (define (disc-usage ds)
; (dir-stream-fold-right ds (lambda (fso sum subdirs) (list (fs-object-filename fso)
; (dir-stream-fold-right ds (lambda (fso sum subdirs) (list (fs-object-file-name fso)
; (apply + sum (map cadr subdirs))
; subdirs))
; (lambda (fso accu)

4
scsh/dir-streams/interfaces.scm
View File

@ -7,7 +7,7 @@
fs-object-parent
fs-object-name
fs-object-info
fs-object-filename))
fs-object-file-name))
(define-interface dir-stream-predicates-interfaces
(export fs-object-size-less-then?
@ -19,7 +19,7 @@
fs-object-last-accessed-in?
fs-object-created-in?
fs-object-name-matches?
ds-object-filename-matches?))
ds-object-file-name-matches?))
(define-interface streams-interface
(export the-empty-stream