From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 20 Feb 1990 16:15:16 +0000 (+0000)
Subject: Make debugger evaluation commands print out more like normal
X-Git-Tag: 20090517-FFI~11526
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1329eb289da3f4023e40e8f515125a62d4df62ed;p=mit-scheme.git

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 d7c4825ca..ed01a3ca3 100644
--- 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 a337a1c00..1071767ba 100644
--- 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)))