summaryrefslogtreecommitdiff
path: root/chapter-2
diff options
context:
space:
mode:
Diffstat (limited to 'chapter-2')
-rw-r--r--chapter-2/function-combinators.scm2
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))