diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2021-03-17 08:06:49 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2021-03-17 08:06:49 -0400 |
| commit | 95b25732a8dcdca6832df23f01bb246b872d7acf (patch) | |
| tree | 6a05c12c937e384d349870686a6641ef1c87839a | |
| parent | 5df2b2532b81c4e38faa6d6c4b0e8d7bf65741c2 (diff) | |
chapter-2: function-combinators: Update compose.
| -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)) |