From 731fc793c09995ae02771bd690c166993657799c Mon Sep 17 00:00:00 2001 From: frese Date: Fri, 16 Jul 2004 12:49:42 +0000 Subject: [PATCH] - fixed abort-re clause in chat - passing submatch argument to 'abort in the chat-monitor --- scheme/chat.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/scheme/chat.scm b/scheme/chat.scm index 0db7c23..90f9948 100644 --- a/scheme/chat.scm +++ b/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)))