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

fixed typo in function names

This commit is contained in:
Eric Knauel 2003-02-21 10:07:52 +00:00
parent e9c25518b2
commit 338f949c37
2 changed files with 4 additions and 4 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

@ -11,10 +11,10 @@
(define (dir-stream-display ds) (define (dir-stream-display ds)
(dir-stream-for-each ds display display)) (dir-stream-for-each ds display display))
(define (fs-object-size-less-then? fs-object size) (define (fs-object-size-less-than? fs-object size)
(< (file-info:size (fs-object-info fs-object)) size)) (< (file-info:size (fs-object-info fs-object)) size))
(define (fs-object-size-greater-then? fs-object size) (define (fs-object-size-greater-than? fs-object size)
(> (file-info:size (fs-object-info fs-object)) size)) (> (file-info:size (fs-object-info fs-object)) size))
(define (minutes->seconds minutes) (define (minutes->seconds minutes)

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

@ -10,8 +10,8 @@
fs-object-file-name)) 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-than?
fs-object-size-greater-then? fs-object-size-greater-than?
days->seconds days->seconds
hours->seconds hours->seconds
minutes->seconds minutes->seconds