added syntax-rules to the magic square-bracket opening list

svn: r12185
2008-10-30 21:49:59 +00:00 · 2008-10-30 21:49:59 +00:00 · 0c40227dac
commit 0c40227dac
parent f5364c4f46
1 changed files with 1 additions and 0 deletions
--- a/collects/framework/private/main.ss
+++ b/collects/framework/private/main.ss
@ -58,6 +58,7 @@
                           ("provide/contract" 0)
                           ("new" 1)
                           ("case" 1)
+                           ("syntax-rules" 1)
                           ("syntax-case" 2)
                           ("syntax-case*" 3))
                         (λ (x) (and (list? x) (andmap (λ (x) (and (pair? x)