From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 22 Nov 1994 19:49:17 +0000 (+0000)
Subject: Add definition of code-rewrite/remember*!
X-Git-Tag: 20090517-FFI~6987
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e790387fb42d4a1ed6197f7e5a0fb904f8defcc3;p=mit-scheme.git

Add definition of code-rewrite/remember*!
---

diff --git a/v8/src/compiler/midend/utils.scm b/v8/src/compiler/midend/utils.scm
index a54ba4f13..d8b645bc6 100644
--- a/v8/src/compiler/midend/utils.scm
+++ b/v8/src/compiler/midend/utils.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: utils.scm,v 1.3 1994/11/22 03:50:00 adams Exp $
+$Id: utils.scm,v 1.4 1994/11/22 19:49:17 gjr Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -1017,6 +1017,10 @@ MIT in each case. |#
 	    (hash-table/put! crt new old)))
       new)))
 
+(define code-rewrite/remember*!
+  (lambda (new old)
+    (hash-table/put! *code-rewrite-table* new old)))
+
 (define (code-rewrite/original-form new)
   (and *code-rewrite-table*
        (hash-table/get *code-rewrite-table* new false)))