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) (define (fs-object-name-matches? fso regexp)
(regexp-search? regexp (fs-object-name fso))) (regexp-search? regexp (fs-object-name fso)))
(define (ds-object-filename-matches? fso regexp) (define (ds-object-file-name-matches? fso regexp)
(regexp-search? regexp (fs-object-filename fso))) (regexp-search? regexp (fs-object-file-name fso)))
;;; test stuff ;;; test stuff

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

@ -42,7 +42,7 @@
"/" "/"
name))) name)))
(define (fs-object-filename fs-object) (define (fs-object-file-name fs-object)
(combine-path (fs-object-parent fs-object) (combine-path (fs-object-parent fs-object)
(fs-object-name fs-object))) (fs-object-name fs-object)))
@ -119,7 +119,7 @@
; Example: ; Example:
; (define (disc-usage ds) ; (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)) ; (apply + sum (map cadr subdirs))
; subdirs)) ; subdirs))
; (lambda (fso accu) ; (lambda (fso accu)

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

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