From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 22 Nov 1994 19:48:54 +0000 (+0000)
Subject: Add call to compat/remember in the special handler for
X-Git-Tag: 20090517-FFI~6988
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ca6858de6d72113890d3f9e1a91814ef1308ec62;p=mit-scheme.git

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 f3cea10cd..6e6252ead 100644
--- 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 -----------