syntax/parse: fixed splicing syntax class bugs

svn: r16690

collects/syntax/private/stxparse/parse.ss

@@ -379,7 +379,7 @@
                          (with-enclosing-fail previous-fail
                            k))))))]
        [#s(hpat:var _attrs name parser (arg ...) (nested-a ...))
-        #`(let ([result (parser x)])
+        #`(let ([result (parser x arg ...)])
             (if (ok? result)
                 (let* ([rest (car result)]
                        [local-fc (cadr result)]

collects/syntax/private/stxparse/sc.ss

@@ -81,7 +81,7 @@
      (identifier? #'name)
      (defstxclass stx #'name #'() #'rhss #t)]
     [(define-splicing-syntax-class (name arg ...) . rhss)
-     (andmap identifier? #'(name arg ...))
+     (andmap identifier? (syntax->list #'(name arg ...)))
      (defstxclass stx #'name #'(arg ...) #'rhss #t)]))
 
 (define-syntax (define-conventions stx)