Corrected the remember procedure.

diff --git a/v8/src/compiler/midend/alpha.scm b/v8/src/compiler/midend/alpha.scm
index 417aee80210d7b5f0e18ddd609f91cae36362492..87cea0927bfc1b5a3340db4d233c1664c958ab9d 100644 (file)
--- a/v8/src/compiler/midend/alpha.scm
+++ b/v8/src/compiler/midend/alpha.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: alpha.scm,v 1.2 1994/11/20 00:40:41 jmiller Exp $
+$Id: alpha.scm,v 1.3 1994/11/25 22:58:37 adams Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -164,8 +164,7 @@ MIT in each case. |#
        exprs))
 
 (define-integrable (alphaconv/remember new old)
-  old                                  ; ignored for now and forever
-  new)
+  (code-rewrite/remember new old))
 
 (define-structure
   (alphaconv/state