From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 31 Jul 2011 23:48:20 +0000 (+0000)
Subject: Fix call to COMBINATION/MAKE in sf/reduct.scm.
X-Git-Tag: release-9.2.0~349
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fb58679f0327f9a83505e9d706faac91cf2d0649;p=mit-scheme.git

Fix call to COMBINATION/MAKE in sf/reduct.scm.
---

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)