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

- fixed the ELSE clause of expect syntax

This commit is contained in:
frese 2004-09-15 14:50:45 +00:00
parent 03d7ee90f6
commit 0a2217bc5c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/expect.scm
View File

@ -373,15 +373,15 @@
(lambda () exp) (lambda () exp)
(lambda (v) (proc v))) (lambda (v) (proc v)))
(expect-action-clauses clause ...))) (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 () body ...) clause ...)
(expect-action-clauses (pattern (ignore) body ...) clause ...)) (expect-action-clauses (pattern (ignore) body ...) clause ...))
((expect-action-clauses (pattern (m mvars ...) body ...) clause ...) ((expect-action-clauses (pattern (m mvars ...) body ...) clause ...)
(cons (list 'match (lambda () pattern) (cons (list 'match (lambda () pattern)
(lambda (m) (lambda (m)
(let-match m (mvars ...) body ...))) (let-match m (mvars ...) body ...)))
(expect-action-clauses clause ...)))
((expect-action-clauses (else body ...) clause ...)
(cons (list else (lambda () body ...))
(expect-action-clauses clause ...))))) (expect-action-clauses clause ...)))))
(define-syntax expect-clauses (define-syntax expect-clauses