From 7ed3c00a27371eecb35636fe6c9f3d6b4dd71fee Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Tue, 4 Jul 1995 14:39:30 +0000 Subject: [PATCH] DBG rewrites are remembered as symbols instead of `(LOOKUP ,symbol). --- v8/src/compiler/midend/alpha.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v8/src/compiler/midend/alpha.scm b/v8/src/compiler/midend/alpha.scm index c20c41d3c..848e073eb 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.8 1995/07/04 05:51:14 adams Exp $ +$Id: alpha.scm,v 1.9 1995/07/04 14:39:30 adams Exp $ Copyright (c) 1994-1995 Massachusetts Institute of Technology @@ -65,7 +65,7 @@ MIT in each case. |# (for-each (lambda (old new) ;; Introduced names, e.g. ENV-14 from envconv (if (uninterned-symbol? old) - (dbg-info/remember old `(LOOKUP ,new)))) + (dbg-info/remember old new))) names new-names) `(LAMBDA ,(alphaconv/rename-lambda-list lambda-list new-names) ,(alphaconv/expr state env* body)))) @@ -89,7 +89,7 @@ MIT in each case. |# (let ((new-name (alphaconv/env/lookup (new-dbg-variable/name var) env*))) - (dbg-info/remember var `(LOOKUP ,new-name)))) + (dbg-info/remember var new-name))) (new-dbg-block/variables block))))))) (define (alphaconv/remember-renames form env*) -- 2.25.1