From 96fccbe6b0c01a4f137a1aa8e653d6492c9437e6 Mon Sep 17 00:00:00 2001 From: frese Date: Wed, 15 Sep 2004 14:51:49 +0000 Subject: [PATCH] - added EOF clause to interact --- scheme/interact.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/scheme/interact.scm b/scheme/interact.scm index 49d3b7b..9f09f93 100644 --- a/scheme/interact.scm +++ b/scheme/interact.scm @@ -113,12 +113,14 @@ (else (error "Only character-patterns are supported.")))))) (define-syntax interact-clauses - (syntax-rules (timeout) + (syntax-rules (timeout eof) ((interact-clauses) (cons #f '())) ((interact-clauses (timeout secs handler) rest ...) (let ((r (interact-clauses rest ...))) (cons (cons secs handler) (cdr r)))) + ((interact-clauses (eof (flag ...) 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)