From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 21 Jun 1998 09:02:01 +0000 (+0000)
Subject: When flushing output, recognize ";Quit!".
X-Git-Tag: 20090517-FFI~4782
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e7b1a4f6a839eafda57f824f43962db9b3f7feb5;p=mit-scheme.git

When flushing output, recognize ";Quit!".
---

diff --git a/v7/src/edwin/intmod.scm b/v7/src/edwin/intmod.scm
index 1dec7b02d..92c7836fa 100644
--- a/v7/src/edwin/intmod.scm
+++ b/v7/src/edwin/intmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: intmod.scm,v 1.92 1998/06/07 08:19:11 cph Exp $
+;;;	$Id: intmod.scm,v 1.93 1998/06/21 09:02:01 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-98 Massachusetts Institute of Technology
 ;;;
@@ -589,9 +589,7 @@ If this is an error, the debugger examines the error condition."
     (let ((start (mark1+ (ref-variable comint-last-input-end) 'LIMIT))
 	  (end (port/mark (buffer-interface-port (selected-buffer) #t))))
       (let ((value-mark
-	     (re-search-backward
-	      ";\\(Unspecified return value\\|Value: \\|Value [0-9]+: \\)"
-	      end start #f)))
+	     (re-search-backward flush-output-regexp end start #f)))
 	(let ((start (mark-left-inserting-copy start))
 	      (end (or value-mark end)))
 	  (if (mark< start end)
@@ -609,6 +607,18 @@ If this is an error, the debugger examines the error condition."
 			    (delete-string m e)
 			    (insert-string "*** flushed ***" m)))))))
 	  (mark-temporary! start))))))
+
+(define flush-output-regexp
+  (string-append "^;"
+		 "\\("
+		 "Unspecified return value$"
+		 "\\|"
+		 "Value: "
+		 "\\|"
+		 "Value [0-9]+: "
+		 "\\|"
+		 "Quit!$"
+		 "\\)"))
 
 (define (inferior-repl-eval-region buffer region)
   (inferior-repl-eval-ok? buffer)