build-new-code was incorrectly passing scode to

combination/optimizing-make.

diff --git a/v7/src/sf/subst.scm b/v7/src/sf/subst.scm
index fc395d91bdb8fb253055a0f1fe8b5673a669a1ea..6f9f9697a6618728e2145ef2e44e0eb308eb50c8 100644 (file)
--- a/v7/src/sf/subst.scm
+++ b/v7/src/sf/subst.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: subst.scm,v 4.11 1993/09/01 00:10:26 cph Exp $
+$Id: subst.scm,v 4.12 1993/09/15 00:34:47 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -1427,7 +1427,7 @@ forms are simply removed.
                     (loop (cdr template)
                           block
                           (combination/optimizing-make
-                           (and expression (object/scode expression))
+                           expression
                            block
                            (procedure/make
                             false