From 95b25732a8dcdca6832df23f01bb246b872d7acf Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 17 Mar 2021 08:06:49 -0400 Subject: chapter-2: function-combinators: Update compose. --- chapter-2/function-combinators.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'chapter-2') 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)) -- cgit v1.2.3