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

diff --git a/src/sf/reduct.scm b/src/sf/reduct.scm
index ebaa4f59622175f1cbb294681f8a5fcb35e7dbd0..bd119106af07ee30b5680e9d87d067478f0d6beb 100644 (file)
--- 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)