diff options
| -rw-r--r-- | chapter-2/function-combinators.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/chapter-2/function-combinators.scm b/chapter-2/function-combinators.scm index 62653da..f16cb1a 100644 --- a/chapter-2/function-combinators.scm +++ b/chapter-2/function-combinators.scm @@ -336,7 +336,7 @@ (cond ((null? procs) (error "must pass at least one procedure")) - ((= (length procs) 1) + ((null? (cdr procs)) (car procs)) (else (let* ((f (car procs)) |