From 60f8d3854a549147eaf0c0dad41d617b23d7a0d6 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Thu, 28 Oct 2010 16:24:06 -0600 Subject: [PATCH] syntax-parse: tidy up --- collects/syntax/parse/private/runtime.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/syntax/parse/private/runtime.rkt b/collects/syntax/parse/private/runtime.rkt index c5e8d1260e..d80c3daa13 100644 --- 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 ...)))