From 338f949c37c15b7984f1c1d40e08316eef4b4ac3 Mon Sep 17 00:00:00 2001 From: Eric Knauel Date: Fri, 21 Feb 2003 10:07:52 +0000 Subject: [PATCH] fixed typo in function names --- scsh/dir-streams/dir-stream-predicates.scm | 4 ++-- scsh/dir-streams/interfaces.scm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) 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