From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 14 May 1991 02:04:05 +0000 (+0000)
Subject: When an internal error occurs, just display its error message, without
X-Git-Tag: 20090517-FFI~10593
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=588cb9f12801c932c30b8fa0487bce259f1a1549;p=mit-scheme.git

When an internal error occurs, just display its error message, without
the "internal error:" prefix.
---

diff --git a/v7/src/edwin/editor.scm b/v7/src/edwin/editor.scm
index 40e6e9f52..a6a37cee6 100644
--- a/v7/src/edwin/editor.scm
+++ b/v7/src/edwin/editor.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/editor.scm,v 1.201 1991/03/16 00:01:46 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/editor.scm,v 1.202 1991/05/14 02:04:05 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -264,11 +264,7 @@ with the contents of the startup message."
 	 (message "Scheme error")
 	 (%editor-error))
 	(else
-	 (message
-	  "Internal error: "
-	  (with-string-output-port
-	   (lambda (port)
-	     (write-condition-report condition port))))
+	 (message (condition/report-string condition))
 	 (%editor-error))))
 
 (define-variable debug-on-internal-error