Good practice: propagate srclocs and stxprops in example

2019-02-23 20:29:58 +01:00 · 2019-02-23 20:29:58 +01:00 · 90ac2459f1
commit 90ac2459f1
parent da9e4f06b9
1 changed files with 1 additions and 1 deletions
--- a/pkgs/racket-doc/syntax/scribblings/parse/experimental.scrbl
+++ b/pkgs/racket-doc/syntax/scribblings/parse/experimental.scrbl
@ -369,7 +369,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)