From fb58679f0327f9a83505e9d706faac91cf2d0649 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 31 Jul 2011 23:48:20 +0000 Subject: [PATCH] Fix call to COMBINATION/MAKE in sf/reduct.scm. --- src/sf/reduct.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/sf/reduct.scm b/src/sf/reduct.scm index ebaa4f596..bd119106a 100644 --- a/src/sf/reduct.scm +++ b/src/sf/reduct.scm @@ -506,7 +506,7 @@ Examples: (car candidate) decl-block))) #f - (combination/make (and expr (object/scode expr)) + (combination/make expr block (let ((frob (cdr candidate))) (if (variable? frob) -- 2.25.1