From e1171489ceaf85f72a901c4c9b8a998a0a79222c Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 15 Mar 1989 19:11:35 +0000
Subject: [PATCH] When evaluation errors occur, pop up buffer with error
 message in it.

---
 v7/src/edwin/evlcom.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/evlcom.scm b/v7/src/edwin/evlcom.scm
index eb992d472..c91fc88b8 100644
--- a/v7/src/edwin/evlcom.scm
+++ b/v7/src/edwin/evlcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/evlcom.scm,v 1.11 1989/03/14 08:00:33 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/evlcom.scm,v 1.12 1989/03/15 19:11:35 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -165,7 +165,13 @@ With an argument, prompts for the evaluation environment."
 	(lambda (condition)
 	  (and (not (condition/internal? condition))
 	       (error? condition)
-	       (editor-error "Error while evaluating expression")))
+	       (begin
+		(with-output-to-temporary-buffer "*Error*"
+		  (lambda ()
+		    (format-error-message (condition/message condition)
+					  (condition/irritants condition)
+					  (current-output-port))))
+		(editor-error "Error while evaluating expression"))))
       (lambda ()
 	(with-new-history (lambda () (scode-eval scode environment)))))))
 (define (prompt-for-expression prompt default-string #!optional default-type)
-- 
2.25.1