From: Hal Abelson <edu/mit/hal>
Date: Wed, 13 Jul 1988 20:09:56 +0000 (+0000)
Subject: Change paranoid error hook so that it aborts the error without giving
X-Git-Tag: 20090517-FFI~12669
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5fad884638f4e5a2afa83f6bcca0954f42ce1108;p=mit-scheme.git

Change paranoid error hook so that it aborts the error without giving
the user any options.
---

diff --git a/v7/src/runtime/emacs.scm b/v7/src/runtime/emacs.scm
index 823cb5ac0..9e2ad93fe 100644
--- a/v7/src/runtime/emacs.scm
+++ b/v7/src/runtime/emacs.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/emacs.scm,v 14.1 1988/06/13 11:43:56 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/emacs.scm,v 14.2 1988/07/13 20:09:56 hal Rel $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -128,10 +128,8 @@ MIT in each case. |#
   (beep console-output-port)
   (if paranoid-error-decision?
       (begin
-	(transmit-signal-with-argument #\P
-"Error! Type ctl-E to enter error loop, anything else to return to top level.")
-	(if (not (char-ci=? (emacs/read-char-immediate) #\C-E))
-	    (abort-to-previous-driver "Quit!")))))
+	(transmit-signal-with-argument #\P "Error!")
+	(abort-to-previous-driver "Quit!"))))
 
 (define paranoid-error-decision?
   false)