- only a bit of make-up

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.

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)