From 45561f2badd11272522ccee75ac5ea8be39d4fc8 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Tue, 4 Jul 1995 14:41:18 +0000 Subject: [PATCH] Removed duplicate definition. --- v8/src/compiler/midend/alpha.scm | 18 ++---------------- 1 file changed, 2 insertions(+), 16 deletions(-) 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) -- 2.25.1