suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

syntax/parse: fixed splicing syntax class bugs

Browse Source 
svn: r16690
This commit is contained in:
Ryan Culpepper 2009-11-11 08:23:12 +00:00
parent 0080e2b673
commit a64e9278d1
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/syntax/private/stxparse/parse.ss
View File

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

2
collects/syntax/private/stxparse/sc.ss
View File

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