Good practice: propagate srclocs and stxprops in example
This commit is contained in:
parent
ad97ade071
commit
fa6bd5cbba
|
@ -370,7 +370,7 @@ invalid binding list.
|
|||
@examples[#:eval the-eval
|
||||
(define (my-metafunction-proc stx)
|
||||
(syntax-case stx ()
|
||||
[(_ n) (datum->syntax #'n (add1 (syntax-e #'n)))]))
|
||||
[(_ n) (datum->syntax #'n (add1 (syntax-e #'n)) #'n #'n)]))
|
||||
|
||||
(begin-for-syntax
|
||||
(struct mf-struct (proc-id)
|
||||
|
|
Loading…
Reference in New Issue
Block a user