From fa6bd5cbba4fef106d5110e9576a72f30961019a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Sat, 23 Feb 2019 20:29:58 +0100 Subject: [PATCH] Good practice: propagate srclocs and stxprops in example --- pkgs/racket-doc/syntax/scribblings/parse/experimental.scrbl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/racket-doc/syntax/scribblings/parse/experimental.scrbl b/pkgs/racket-doc/syntax/scribblings/parse/experimental.scrbl index f261ddad74..7943ca69f5 100644 --- a/pkgs/racket-doc/syntax/scribblings/parse/experimental.scrbl +++ b/pkgs/racket-doc/syntax/scribblings/parse/experimental.scrbl @@ -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)