From 76776d57df1432d9c41deac7cf51881bfca5ffaa Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Fri, 21 Jul 1995 14:37:35 +0000 Subject: [PATCH] Removed a `(LOOKUP ,x) from the dbg info. --- v8/src/compiler/midend/assconv.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v8/src/compiler/midend/assconv.scm b/v8/src/compiler/midend/assconv.scm index e547f75b6..7cf5bde90 100644 --- a/v8/src/compiler/midend/assconv.scm +++ b/v8/src/compiler/midend/assconv.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: assconv.scm,v 1.12 1995/06/22 00:57:02 adams Exp $ +$Id: assconv.scm,v 1.13 1995/07/21 14:37:35 adams Exp $ Copyright (c) 1994-1995 Massachusetts Institute of Technology @@ -91,7 +91,7 @@ MIT in each case. |# (map (lambda (name) (if (memq name shadowed) (let ((outer-name (assconv/new-name 'IGNORED))) - (dbg-info/remember name `(LOOKUP ,outer-name)) + (dbg-info/remember name outer-name) outer-name) name)) lambda-list)) -- 2.25.1