From 0a2217bc5c6e50da651a67e48aad906b5b68303d Mon Sep 17 00:00:00 2001 From: frese Date: Wed, 15 Sep 2004 14:50:45 +0000 Subject: [PATCH] - fixed the ELSE clause of expect syntax --- scheme/expect.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/scheme/expect.scm b/scheme/expect.scm index 2cf9d30..f4dab9f 100644 --- a/scheme/expect.scm +++ b/scheme/expect.scm @@ -373,15 +373,15 @@ (lambda () exp) (lambda (v) (proc v))) (expect-action-clauses clause ...))) + ((expect-action-clauses (else body ...) clause ...) + (cons (list 'else (lambda () body ...)) + (expect-action-clauses clause ...))) ((expect-action-clauses (pattern () body ...) clause ...) (expect-action-clauses (pattern (ignore) body ...) clause ...)) ((expect-action-clauses (pattern (m mvars ...) body ...) clause ...) (cons (list 'match (lambda () pattern) (lambda (m) (let-match m (mvars ...) body ...))) - (expect-action-clauses clause ...))) - ((expect-action-clauses (else body ...) clause ...) - (cons (list else (lambda () body ...)) (expect-action-clauses clause ...))))) (define-syntax expect-clauses