- fixed abort-re clause in chat

- passing submatch argument to 'abort in the chat-monitor

scheme/chat.scm

@@ -70,8 +70,8 @@
 	    (task (re (m) 			; See RE => return false.
 		    (if cmon (cmon 'found m))
 		    #f)
-		  (abort-re (#f s)		; See $chat-abort-re =>
-		    (if cmon (cmon 'abort #f))	;   abort & return the
+		  (abort-re (s)		        ; See $chat-abort-re =>
+		    (if cmon (cmon 'abort s))	;   abort & return the
 		    (chat-cont s))		;   abort string.
 
 		  (on-eof
@@ -91,7 +91,7 @@
 ;;; - found(match)
 ;;; - new-input(text)
 ;;; - sending(text)
-;;; - abort
+;;; - abort(text)
 ;;; - eof
 ;;; - timeout
 
@@ -117,7 +117,7 @@
       ((sending)	(format port "send(~a)\n" val))
       ((eof)		(write-string "EOF encountered.\n" port))
       ((timeout)	(write-string "-- timed out. \n" port))
-      ((abort)		(write-string "-- aborting. \n" port))
+      ((abort)		(format port "-- aborting(~a). \n" val))
       (else		(format port "Unknown chat event: ~a ~a\n" event val)))
     (force-output port)))