From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 21 Jul 1995 14:37:35 +0000 (+0000)
Subject: Removed a `(LOOKUP ,x) from the dbg info.
X-Git-Tag: 20090517-FFI~6164
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=76776d57df1432d9c41deac7cf51881bfca5ffaa;p=mit-scheme.git

Removed a `(LOOKUP ,x) from the dbg info.
---

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))