From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 26 Nov 1994 19:05:34 +0000 (+0000)
Subject: Blow away copier/remember, unneeded since the remember routine is
X-Git-Tag: 20090517-FFI~6951
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=004d5e2a5a491092d2fa783e6e235ba802093e4e;p=mit-scheme.git

Blow away copier/remember, unneeded since the remember routine is
passed around as STATE.
---

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)