test syntax pattern match on vectors

svn: r2419
2006-03-12 16:16:37 +00:00 · 2006-03-12 16:16:37 +00:00 · 3c6aaf97c0
commit 3c6aaf97c0
parent 7b968839e8
1 changed files with 5 additions and 0 deletions
--- a/collects/tests/mzscheme/macro.ss
+++ b/collects/tests/mzscheme/macro.ss
@ -332,4 +332,9 @@

 ;; ----------------------------------------

+(test 10 'vector-pattern (syntax-case #() () [#() 10]))
+(test 'b 'vector-pattern (syntax-case #(a b c) () [#(x y z) (syntax-e #'y)]))
+
+;; ----------------------------------------
+
 (report-errs)