Add call to compat/remember in the special handler for

%make-heap-closure.

diff --git a/v8/src/compiler/midend/compat.scm b/v8/src/compiler/midend/compat.scm
index f3cea10cdbb6e73f11e8f2dbcf04cfcfaa73ddb8..6e6252ead0d523e0e3be54ce15b7eddda3efe93f 100644 (file)
--- a/v8/src/compiler/midend/compat.scm
+++ b/v8/src/compiler/midend/compat.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: compat.scm,v 1.2 1994/11/22 19:45:34 adams Exp $
+$Id: compat.scm,v 1.3 1994/11/22 19:48:54 gjr Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -423,13 +423,14 @@ MIT in each case. |#
             "%make-heap-closure LAMBDA-expression has bad formals" lam-expr))
        `(CALL (QUOTE ,%make-heap-closure)
               ,(compat/expr env cont)
-              ,(compat/rewrite-lambda
-                lambda-list
-                (lambda/body lam-expr)
-                (compat/choose-stack-formals 2 lambda-list))
+              ,(compat/remember
+                (compat/rewrite-lambda
+                 lambda-list
+                 (lambda/body lam-expr)
+                 (compat/choose-stack-formals 2 lambda-list))
+                lam-expr)
               . ,(compat/expr* env (cdr rands)))))))
 
-
 (define-rewrite/compat %variable-cache-ref
   ;; (CALL ',%variable-cache-ref '#F <read-variable-cache> 'NAME)
   ;;       ------- rator ------- cont -------- rands -----------