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 7609fd75d49cfd157161540dd87bffc6b3a01d80..f015a4a50e0efbfa9a704cf30324d9c1a9969045 100644 (file)
--- 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"))))