From 34cfe483557f45f100686a7eeaf2ca73e798a64a Mon Sep 17 00:00:00 2001
From: Leif Andersen <leif@leifandersen.net>
Date: Thu, 21 Jan 2016 12:01:30 -0500
Subject: [PATCH] Add examples to make-require-transformer

---
 .../scribblings/reference/stx-trans.scrbl      | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl b/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl
index 6e9de282cf..a84a7f2a46 100644
--- a/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl
+++ b/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl
@@ -1094,7 +1094,23 @@ former list).}
          require-transformer?]{
 
 Creates a @tech{require transformer} using the given procedure as the
-transformer.}
+transformer.
+Often used in combination with @racket[expand-import].
+
+@examples[
+#:eval stx-eval
+(require (for-syntax racket/require-transform))
+
+(define-syntax printing
+  (make-require-transformer
+   (lambda (stx)
+     (syntax-case stx ()
+       [(_ path)
+        (printf "Importing: ~a~n" #'path)
+        (expand-import #'path)]))))
+
+(require (printing racket/match))
+]}
 
 
 @defthing[prop:require-transformer struct-type-property?]{