From a64e9278d186f57d228871a93d14045b14b7d40a Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Wed, 11 Nov 2009 08:23:12 +0000 Subject: [PATCH] syntax/parse: fixed splicing syntax class bugs svn: r16690 --- collects/syntax/private/stxparse/parse.ss | 2 +- collects/syntax/private/stxparse/sc.ss | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/syntax/private/stxparse/parse.ss b/collects/syntax/private/stxparse/parse.ss index 04606397c5..e257698028 100644 --- a/collects/syntax/private/stxparse/parse.ss +++ b/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)] diff --git a/collects/syntax/private/stxparse/sc.ss b/collects/syntax/private/stxparse/sc.ss index 3eb360e79a..5753da49b6 100644 --- a/collects/syntax/private/stxparse/sc.ss +++ b/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)