From 1329eb289da3f4023e40e8f515125a62d4df62ed Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 20 Feb 1990 16:15:16 +0000 Subject: [PATCH] Make debugger evaluation commands print out more like normal evaluations in a rep-loop. --- v7/src/runtime/dbgutl.scm | 10 +++++++--- v8/src/runtime/dbgutl.scm | 10 +++++++--- 2 files changed, 14 insertions(+), 6 deletions(-) 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))) -- 2.25.1