scsh-conservatory
/
scsh-expect
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
scheme/chat.scm
View File

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