fix bad syntax
svn: r15110
This commit is contained in:
parent
27907c277e
commit
575a348e8a
|
@ -155,3 +155,4 @@
|
||||||
|
|
||||||
(send frame show #t))
|
(send frame show #t))
|
||||||
|
|
||||||
|
)
|
||||||
|
|
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user