From 004d5e2a5a491092d2fa783e6e235ba802093e4e Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Sat, 26 Nov 1994 19:05:34 +0000
Subject: [PATCH] Blow away copier/remember, unneeded since the remember
 routine is passed around as STATE.

---
 v8/src/compiler/midend/copier.scm | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/v8/src/compiler/midend/copier.scm b/v8/src/compiler/midend/copier.scm
index dabffe325..f7fa1cc61 100644
--- a/v8/src/compiler/midend/copier.scm
+++ b/v8/src/compiler/midend/copier.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: copier.scm,v 1.2 1994/11/20 00:41:36 jmiller Exp $
+$Id: copier.scm,v 1.3 1994/11/26 19:05:34 gjr Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -45,8 +45,7 @@ MIT in each case. |#
        `(define ,proc-name
 	  (let ((handler (lambda ,(cons (car bindings) names) ,@body)))
 	    (named-lambda (,proc-name state form)
-	      (copier/remember ,code
-			       form))))))))
+	      ,code)))))))
 
 (define-copier-handler LOOKUP (state name)
   state					; ignored
@@ -166,7 +165,3 @@ MIT in each case. |#
   (lmap (lambda (expr)
 	  (copier/expr state expr))
 	exprs))
-
-(define-integrable (copier/remember new old)
-  old					; ignored for now and forever
-  new)
-- 
2.25.1