suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

improve arity error messages when keywords are involved

Browse Source 
svn: r7887

original commit: 9b96716432ce0cd278cf0221bebe89382abb2fa8
This commit is contained in:
Matthew Flatt 2007-12-02 15:45:51 +00:00
parent 96069ad6e6
commit d1fae6113e
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/mzscheme/macrolib.ss
View File

@ -66,6 +66,8 @@
(syntax-test #'(let ([define-values 10]) (local ((define-values (x) 4)) 10))) (syntax-test #'(let ([define-values 10]) (local ((define-values (x) 4)) 10)))
(syntax-test #'(let ([define-struct 10]) (local ((define-struct x ())) 10))) (syntax-test #'(let ([define-struct 10]) (local ((define-struct x ())) 10)))
(define else #f) ;; `evcase' needs unbound `else' !!!! <------------------ WARNING
(for-each syntax-test (for-each syntax-test
(list #'(evcase) (list #'(evcase)
#'(evcase 1 (a)) #'(evcase 1 (a))