From: Jacob Katzenelson <edu/mit/csail/zurich/jacob>
Date: Tue, 3 Aug 1993 22:40:00 +0000 (+0000)
Subject: Clean up last change -- GJR.
X-Git-Tag: 20090517-FFI~8128
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5058f26bb944665e55b707eacd7b04052f651dea;p=mit-scheme.git

Clean up last change -- GJR.
---

diff --git a/v7/src/sf/reduct.scm b/v7/src/sf/reduct.scm
index 8eb191e18..d02f6df8d 100644
--- a/v7/src/sf/reduct.scm
+++ b/v7/src/sf/reduct.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: reduct.scm,v 4.6 1993/08/03 21:53:35 jacob Exp $
+$Id: reduct.scm,v 4.7 1993/08/03 22:40:00 jacob Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -527,14 +527,13 @@ Examples:
 					    decl-block)))
 	     (if-not-expanded)
 	     (if-expanded
-	      (reassign
-	       expr
-	       (combination/make false
-				 (let ((frob (cdr candidate)))
-				   (if (variable? frob)
-				       (lookup (variable/name frob) block)
-				       frob))
-				 operands)))))))))
+	      (combination/make
+	       (and expr (object/scode expr))
+	       (let ((frob (cdr candidate)))
+		 (if (variable? frob)
+		     (lookup (variable/name frob) block)
+		     frob))
+	       operands))))))))
 
 (define (parse-replacement name ocases block)
   (define (collect len cases default)