diff --git a/scsh/dir-streams/dir-stream-predicates.scm b/scsh/dir-streams/dir-stream-predicates.scm index dce3ec3..c4eb646 100644 --- a/scsh/dir-streams/dir-stream-predicates.scm +++ b/scsh/dir-streams/dir-stream-predicates.scm @@ -11,10 +11,10 @@ (define (dir-stream-display ds) (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)) -(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)) (define (minutes->seconds minutes) diff --git a/scsh/dir-streams/interfaces.scm b/scsh/dir-streams/interfaces.scm index f2246a0..6986e4a 100644 --- a/scsh/dir-streams/interfaces.scm +++ b/scsh/dir-streams/interfaces.scm @@ -10,8 +10,8 @@ fs-object-file-name)) (define-interface dir-stream-predicates-interfaces - (export fs-object-size-less-then? - fs-object-size-greater-then? + (export fs-object-size-less-than? + fs-object-size-greater-than? days->seconds hours->seconds minutes->seconds