summaryrefslogtreecommitdiff
path: root/chapter-2
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2021-03-17 08:06:49 -0400
committerDavid Thompson <dthompson@vistahigherlearning.com>2021-03-17 08:06:49 -0400
commit95b25732a8dcdca6832df23f01bb246b872d7acf (patch)
tree6a05c12c937e384d349870686a6641ef1c87839a /chapter-2
parent5df2b2532b81c4e38faa6d6c4b0e8d7bf65741c2 (diff)
chapter-2: function-combinators: Update compose.
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))