Make debugger evaluation commands print out more like normal

evaluations in a rep-loop.

diff --git a/v7/src/runtime/dbgutl.scm b/v7/src/runtime/dbgutl.scm
index d7c4825ca72642c0b3488d7264bd057692283d62..ed01a3ca387c0d99854825021462055f12ff893d 100644 (file)
--- a/v7/src/runtime/dbgutl.scm
+++ b/v7/src/runtime/dbgutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dbgutl.scm,v 14.8 1989/08/07 07:36:25 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dbgutl.scm,v 14.9 1990/02/20 16:15:16 jinx Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -53,8 +53,12 @@ MIT in each case. |#
   (if (string? name) (write-string name) (write name)))
 
 (define (debug/read-eval-print-1 environment)
-  (debugger-message
-   (debug/eval (prompt-for-expression "Evaluate expression") environment)))
+  (let ((value
+        (debug/eval (prompt-for-expression "Evaluate expression")
+                    environment)))
+    (if (undefined-value? value)
+       (debugger-message "\n" ";No value")
+       (debugger-message "\n" "Value: " value))))
 
 (define (output-to-string length thunk)
   (let ((x (with-output-to-truncated-string length thunk)))

diff --git a/v8/src/runtime/dbgutl.scm b/v8/src/runtime/dbgutl.scm
index a337a1c00dce62395c0a0accfc8b2a7d2e5632fc..1071767ba18238a959db3d21458cb5f237175dec 100644 (file)
--- a/v8/src/runtime/dbgutl.scm
+++ b/v8/src/runtime/dbgutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/dbgutl.scm,v 14.8 1989/08/07 07:36:25 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/dbgutl.scm,v 14.9 1990/02/20 16:15:16 jinx Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -53,8 +53,12 @@ MIT in each case. |#
   (if (string? name) (write-string name) (write name)))
 
 (define (debug/read-eval-print-1 environment)
-  (debugger-message
-   (debug/eval (prompt-for-expression "Evaluate expression") environment)))
+  (let ((value
+        (debug/eval (prompt-for-expression "Evaluate expression")
+                    environment)))
+    (if (undefined-value? value)
+       (debugger-message "\n" ";No value")
+       (debugger-message "\n" "Value: " value))))
 
 (define (output-to-string length thunk)
   (let ((x (with-output-to-truncated-string length thunk)))