- adjusted for new expect interface

This commit is contained in:
frese 2004-08-24 13:25:58 +00:00
parent c7f21da61a
commit f327192879
1 changed files with 5 additions and 6 deletions

View File

@ -60,12 +60,11 @@
(expect (option (timeout tmout) ; Timeout in $chat-timeout secs.
(monitor (if cmon
(chat->expect-monitor cmon)
(lambda (task event) #f)))) ; No-op
;; Expect triggers the monitor for us on timeout.
(on-timeout (if (pair? maybe-on-timeout) ; Timeout =>
((car maybe-on-timeout)) ; Call handler or
(chat-cont 'timeout))) ; abort.
(lambda (task event) #f))) ; No-op
;; Timeout => Call handler or abort.
(on-timeout (if (pair? maybe-on-timeout)
((car maybe-on-timeout))
(chat-cont 'timeout))))
(task (re (m) ; See RE => return false.
(if cmon (cmon 'found m))