fix bad syntax

svn: r15110
This commit is contained in:
Eli Barzilay 2009-06-07 09:21:41 +00:00
parent 27907c277e
commit 575a348e8a
2 changed files with 2 additions and 1 deletions

View File

@ -155,3 +155,4 @@
(send frame show #t)) (send frame show #t))
)

View File

@ -167,7 +167,7 @@
(error-test '(struct-case-lambda x . 5) syntaxe?) (error-test '(struct-case-lambda x . 5) syntaxe?)
(error-test '(struct-case-lambda x ()) syntaxe?) (error-test '(struct-case-lambda x ()) syntaxe?)
(error-test '(struct-case-lambda x else) syntaxe?) (error-test '(struct-case-lambda x else) syntaxe?)
(error-test '(struct-case-lambda x (else 9) (exn? 8)) syntaxe?)) (error-test '(struct-case-lambda x (else 9) (exn? 8)) syntaxe?)
(define time-branch (define time-branch
(lambda (proc list) (lambda (proc list)