improve arity error messages when keywords are involved

svn: r7887 original commit: 9b96716432ce0cd278cf0221bebe89382abb2fa8
2007-12-02 15:45:51 +00:00 · 2007-12-02 15:45:51 +00:00 · d1fae6113e
commit d1fae6113e
parent 96069ad6e6
1 changed files with 2 additions and 0 deletions
--- a/collects/tests/mzscheme/macrolib.ss
+++ b/collects/tests/mzscheme/macrolib.ss
@ -66,6 +66,8 @@
 (syntax-test #'(let ([define-values 10]) (local ((define-values (x) 4)) 10)))
 (syntax-test #'(let ([define-struct 10]) (local ((define-struct x ())) 10)))

+(define else #f) ;; `evcase' needs unbound `else' !!!! <------------------ WARNING
+
 (for-each syntax-test 
 	  (list #'(evcase)
 		#'(evcase 1 (a))