From 5a27ea72b40a3032b53826a378c19a0e5ffb9870 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Wed, 30 Nov 1994 22:19:00 +0000 Subject: [PATCH] Extended variable print method. --- v8/src/compiler/midend/dbgstr.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/v8/src/compiler/midend/dbgstr.scm b/v8/src/compiler/midend/dbgstr.scm index d1591989f..b21885ddc 100644 --- a/v8/src/compiler/midend/dbgstr.scm +++ b/v8/src/compiler/midend/dbgstr.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: dbgstr.scm,v 1.5 1994/11/28 03:55:12 adams Exp $ +$Id: dbgstr.scm,v 1.6 1994/11/30 22:19:00 adams Exp $ Copyright (c) 1994 Massachusetts Institute of Technology @@ -41,9 +41,9 @@ MIT in each case. |# (constructor new-dbg-expression/make2 (expr block)) (print-procedure (standard-unparser-method 'NEW-DBG-EXPRESSION - (lambda (e port) + (lambda (expr port) (write-char #\Space port) - (display (new-dbg-expression/expr e) port))))) + (display (new-dbg-expression/expr expr) port))))) (expr false read-only true) (block false read-only false)) @@ -80,7 +80,9 @@ MIT in each case. |# (write-char #\Space port) (write (new-dbg-variable/name var) port) (write-string " -> " port) - (write (new-dbg-variable/original-name var) port))))) + (fluid-let ((*unparser-list-breadth-limit* 5) + (*unparser-list-depth-limit* 2)) + (write (new-dbg-variable/original-name var) port)))))) (name original-name read-only false) (original-name name read-only true) (block false read-only false) -- 2.25.1