From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 4 Jul 1995 14:41:18 +0000 (+0000)
Subject: Removed duplicate definition.
X-Git-Tag: 20090517-FFI~6217
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=45561f2badd11272522ccee75ac5ea8be39d4fc8;p=mit-scheme.git

Removed duplicate definition.
---

diff --git a/v8/src/compiler/midend/alpha.scm b/v8/src/compiler/midend/alpha.scm
index 848e073eb..ff2e85864 100644
--- a/v8/src/compiler/midend/alpha.scm
+++ b/v8/src/compiler/midend/alpha.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: alpha.scm,v 1.9 1995/07/04 14:39:30 adams Exp $
+$Id: alpha.scm,v 1.10 1995/07/04 14:41:18 adams Exp $
 
 Copyright (c) 1994-1995 Massachusetts Institute of Technology
 
@@ -78,7 +78,7 @@ MIT in each case. |#
 	  (else
 	   (loop (cdr ll) (cdr nn) (cons (car nn) result))))))
 
- (define (alphaconv/remember-renames form env*)
+(define (alphaconv/remember-renames form env*)
   (let ((info (code-rewrite/original-form/previous form)))
     (and info
 	 (new-dbg-procedure? info)
@@ -92,20 +92,6 @@ MIT in each case. |#
 		     (dbg-info/remember var new-name)))
 		 (new-dbg-block/variables block)))))))
 
- (define (alphaconv/remember-renames form env*)
-  (let ((info (code-rewrite/original-form/previous form)))
-    (and info
-	 (new-dbg-procedure? info)
-	 (let ((block (new-dbg-procedure/block info)))
-	   (and block
-		(for-each
-		 (lambda (var)
-		   (let ((new-name
-			  (alphaconv/env/lookup (new-dbg-variable/name var)
-						env*)))
-		     (dbg-info/remember var `(LOOKUP ,new-name))))
-		 (new-dbg-block/variables block)))))))
-
 (define-alphaconv CALL (state env rator cont #!rest rands)
   `(CALL ,(alphaconv/expr state env rator)
 	 ,(alphaconv/expr state env cont)