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

fix problem with define-eh-alternative-set related to lazy-require

Browse Source
This commit is contained in:
Ryan Culpepper 2013-05-04 04:33:36 -04:00
parent 22b9548ecb
commit 87921e914e
1 changed files with 20 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
collects/syntax/parse/private/parse.rkt
View File

@ -1082,23 +1082,26 @@ Conventions:
[(alt-expr ...)
(for/list ([alt (in-list eh-alts)])
(with-syntax ([repc-expr
(match (eh-alternative-repc alt)
['#f
#'(quote #f)]
[(rep:once n u o)
#`(rep:once (quote-syntax #,n)
(quote-syntax #,u)
(quote-syntax #,o))]
[(rep:optional n o d)
#`(rep:optional (quote-syntax #,n)
(quote-syntax #,o)
(quote-syntax #,d))]
[(rep:bounds min max n u o)
#`(rep:bounds (quote #,min)
(quote #,max)
(quote-syntax #,n)
(quote-syntax #,u)
(quote-syntax #,o))])]
;; repc structs are prefab; recreate using prefab
;; quasiquote exprs to avoid moving constructors
;; to residual module
(syntax-case (eh-alternative-repc alt) ()
[#f
#''#f]
[#s(rep:once n u o)
#'`#s(rep:once ,(quote-syntax n)
,(quote-syntax u)
,(quote-syntax o))]
[#s(rep:optional n o d)
#'`#s(rep:optional ,(quote-syntax n)
,(quote-syntax o)
,(quote-syntax d))]
[#s(rep:bounds min max n u o)
#'`#s(rep:bounds ,(quote min)
,(quote max)
,(quote-syntax n)
,(quote-syntax u)
,(quote-syntax o))])]
[attrs-expr
#`(quote #,(eh-alternative-attrs alt))]
[parser-expr