From 49d0510d95db49fa8f3b0239e861eb7b2696230b Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sun, 21 May 1989 04:31:33 +0000 Subject: [PATCH] Fix bug in terse-print-expression. This procedure was checking for debugging-info on the wrong expression! --- v7/src/runtime/debug.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/debug.scm b/v7/src/runtime/debug.scm index 7609fd75d..f015a4a50 100644 --- a/v7/src/runtime/debug.scm +++ b/v7/src/runtime/debug.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/debug.scm,v 14.11 1989/03/29 02:45:22 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/debug.scm,v 14.12 1989/05/21 04:31:33 jinx Rel $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -312,12 +312,11 @@ MIT in each case. |# ((not (debugging-info/undefined-expression? expression)) (output-to-string 50 (lambda () (write-sexp (unsyntax expression))))) - ((debugging-info/noise current-expression) + ((debugging-info/noise expression) (output-to-string 50 (lambda () - (write-string ((debugging-info/noise current-expression) - false))))) + (write-string ((debugging-info/noise expression) false))))) (else ";undefined expression")))) -- 2.25.1