From d1fae6113ea56166abcf043defc394670b19e69c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 2 Dec 2007 15:45:51 +0000
Subject: [PATCH] improve arity error messages when keywords are involved

svn: r7887

original commit: 9b96716432ce0cd278cf0221bebe89382abb2fa8
---
 collects/tests/mzscheme/macrolib.ss | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/tests/mzscheme/macrolib.ss b/collects/tests/mzscheme/macrolib.ss
index e74310e..5e8f284 100644
--- 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))