Good practice: propagate srclocs and stxprops in example

This commit is contained in:
Georges Dupéron 2019-02-23 20:29:58 +01:00 committed by Suzanne Soy
parent ad97ade071
commit fa6bd5cbba

View File

@ -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)