Add definition of code-rewrite/remember*!

diff --git a/v8/src/compiler/midend/utils.scm b/v8/src/compiler/midend/utils.scm
index a54ba4f13a4aaac265d9174c3ec46e2b09229095..d8b645bc65bac55673863a064552f0ec5825bd45 100644 (file)
--- 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)))