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

syntax/parse: fixed bug in #:declare with splicing stxclass

Browse Source 
svn: r16712
This commit is contained in:
Ryan Culpepper 2009-11-12 05:43:50 +00:00
parent e34e001167
commit e120f4ded5
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/syntax/private/stxparse/rep.ss
View File

@ -198,9 +198,8 @@
(for/fold ([decls decls0] [defs null]) (for/fold ([decls decls0] [defs null])
([(k v) (in-dict (declenv-table decls0))] ([(k v) (in-dict (declenv-table decls0))]
#:when (memq (car v) '(stxclass splicing-stxclass))) #:when (memq (car v) '(stxclass splicing-stxclass)))
(let-values ([(parser description attrs new-defs) (create-aux-def v)]) (let-values ([(parser description attrs new-defs splicing?) (create-aux-def v)])
(values (declenv-put-parser decls k parser description attrs (values (declenv-put-parser decls k parser description attrs splicing?)
(eq? (car v) 'splicing-stxclass))
(append new-defs defs))))) (append new-defs defs)))))
;; create-aux-def : DeclEntry -> (values id id (listof SAttr) (listof stx)) ;; create-aux-def : DeclEntry -> (values id id (listof SAttr) (listof stx))
@ -217,9 +216,10 @@
[(arg ...) args]) [(arg ...) args])
(values #'parser #'description (stxclass-attrs sc) (values #'parser #'description (stxclass-attrs sc)
(list #'(define (parser x) (sc-parser x arg ...)) (list #'(define (parser x) (sc-parser x arg ...))
#'(define (description) (description arg ...))))) #'(define (description) (description arg ...)))
(stxclass/h? sc)))
(values #'sc-parser #'sc-description (stxclass-attrs sc) (values #'sc-parser #'sc-description (stxclass-attrs sc)
null)))))) null (stxclass/h? sc)))))))
(define (append-lits+litsets lits litsets) (define (append-lits+litsets lits litsets)
(define seen (make-bound-id-table lits)) (define seen (make-bound-id-table lits))