From e790387fb42d4a1ed6197f7e5a0fb904f8defcc3 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Tue, 22 Nov 1994 19:49:17 +0000
Subject: [PATCH] Add definition of code-rewrite/remember*!
---
v8/src/compiler/midend/utils.scm | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
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)))
--
2.25.1