syntax-parse: tidy up

2010-10-28 16:24:06 -06:00 · 2010-10-28 16:24:06 -06:00 · 60f8d3854a
commit 60f8d3854a
parent b9961d605d
1 changed files with 1 additions and 1 deletions
--- a/collects/syntax/parse/private/runtime.rkt
+++ b/collects/syntax/parse/private/runtime.rkt
@ -323,7 +323,7 @@

 (define-syntax (curried-stxclass-parser stx)
  (syntax-case stx ()
-    [(cp class argu)
+    [(_ class argu)
     (with-syntax ([#s(arguments (parg ...) (kw ...) _) #'argu])
       (let ([sc (get-stxclass/check-arity #'class #'class
                                           (length (syntax->list #'(parg ...)))