From 0b1163c4c37cbcca79e0595f6929db8dfa4bffc7 Mon Sep 17 00:00:00 2001
From: frese <frese>
Date: Mon, 20 Sep 2004 15:57:57 +0000
Subject: [PATCH] - only a bit of make-up

---
 scheme/chat.scm     | 6 +++---
 scheme/interact.scm | 5 ++---
 2 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/scheme/chat.scm b/scheme/chat.scm
index 918bebc..ce578d4 100644
--- a/scheme/chat.scm
+++ b/scheme/chat.scm
@@ -69,9 +69,9 @@
 	    (task (re (m) 			; See RE => return false.
 		    (if cmon (cmon 'found m))
 		    #f)
-		  (abort-re (s)		        ; See $chat-abort-re =>
-		    (if cmon (cmon 'abort s))	;   abort & return the
-		    (chat-cont s))		;   abort string.
+		  (abort-re (m)		        ; See $chat-abort-re =>
+		    (if cmon (cmon 'abort m))	;   abort & return the
+		    (chat-cont m))		;   abort string.
 
 		  (on-eof
 		   ;; EXPECT triggers the monitor for us.
diff --git a/scheme/interact.scm b/scheme/interact.scm
index 9f09f93..086fd06 100644
--- a/scheme/interact.scm
+++ b/scheme/interact.scm
@@ -1,5 +1,3 @@
-;; TODO: interpreter?
-
 ;; The pattern eof introduces an action that is executed upon end-
 ;; of-file.  A separate eof pattern may also follow the -output flag
 ;; in which case it is matched if an eof is detected while writing
@@ -120,7 +118,8 @@
        (cons (cons secs handler)
 	     (cdr r))))
     ((interact-clauses (eof (flag ...) body ...) rest ...)
-     (interact-clauses (eof-pattern (flag ...) (cont ignore) body ...) rest ...))
+     (interact-clauses (eof-pattern (flag ...) (cont ignore) body ...)
+		       rest ...))
     ((interact-clauses (rx (flag ...) (cont match mvar ...) body ...) rest ...)
      (let ((r (interact-clauses rest ...)))
        (cons (car r)