From 44f2f9e3017561cbe072b628ec978573058fa2fd Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 3 Apr 1991 04:21:15 +0000
Subject: [PATCH] Catch errors that happen while reading expressions from a
 buffer.

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

diff --git a/v7/src/edwin/evlcom.scm b/v7/src/edwin/evlcom.scm
index 24b12a4c6..403c5803a 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.21 1991/04/03 04:09:58 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/evlcom.scm,v 1.22 1991/04/03 04:21:15 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -240,7 +240,7 @@ may be available.  The following commands are special to this mode:
 		    (if (not (eof-object? sexp))
 			(begin
 			  (editor-eval sexp environment)
-			  (loop (read))))))))
+			  (loop)))))))
 	    loop))))))
 
 (define (evaluation-environment argument)
-- 
2.25.1