From 7a4e95658028f554a6914f14c33f5cba2df2bacc Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Tue, 4 Jul 1995 18:02:28 +0000 Subject: [PATCH] Changes to correspond with the format of NEW-DBG-BLOCKs and interface of DBG-INFO/REMEMBER. --- v8/src/compiler/midend/alpha.scm | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/v8/src/compiler/midend/alpha.scm b/v8/src/compiler/midend/alpha.scm index ff2e85864..6e3b87144 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.10 1995/07/04 14:41:18 adams Exp $ +$Id: alpha.scm,v 1.11 1995/07/04 18:02:28 adams Exp $ Copyright (c) 1994-1995 Massachusetts Institute of Technology @@ -84,13 +84,12 @@ MIT in each case. |# (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 new-name))) - (new-dbg-block/variables block))))))) + (for-each-vector-element (new-dbg-block/variables block) + (lambda (var) + (let ((new-name + (alphaconv/env/lookup (new-dbg-variable/name var) + env*))) + (dbg-info/remember var new-name))))))))) (define-alphaconv CALL (state env rator cont #!rest rands) `(CALL ,(alphaconv/expr state env rator) -- 2.25.1