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

svn: r12185 original commit: 0c40227dac237bc7b837de4993f4deeeddc62a1e
2008-10-30 21:49:59 +00:00 · 2008-10-30 21:49:59 +00:00 · a9dc0d2ab2
commit a9dc0d2ab2
parent 423f379920
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)