From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sun, 21 May 1989 04:31:33 +0000 (+0000)
Subject: Fix bug in terse-print-expression.  This procedure was checking for
X-Git-Tag: 20090517-FFI~12060
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=49d0510d95db49fa8f3b0239e861eb7b2696230b;p=mit-scheme.git

Fix bug in terse-print-expression.  This procedure was checking for
debugging-info on the wrong expression!
---

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