From bca4c000bab520fd11b900c12bdef277103680e9 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 1 May 2012 14:49:10 -0600
Subject: [PATCH] racket/sandbox: change syntax-object wrappers generated for
 locations

Generate wrappers consistent with a reader-level absence of `.'s,
instead of wrapping every pair. This change fixes the `syntax-e'
example in the Guide's description of syntax objects.

original commit: 54a6ba8d363f441d0bf3d4b15df0170215b84b8e
---
 collects/tests/scribble/docs/stxobj.scrbl | 6 ++++++
 collects/tests/scribble/docs/stxobj.txt   | 2 ++
 2 files changed, 8 insertions(+)
 create mode 100644 collects/tests/scribble/docs/stxobj.scrbl
 create mode 100644 collects/tests/scribble/docs/stxobj.txt

diff --git a/collects/tests/scribble/docs/stxobj.scrbl b/collects/tests/scribble/docs/stxobj.scrbl
new file mode 100644
index 00000000..330cdfb3
--- /dev/null
+++ b/collects/tests/scribble/docs/stxobj.scrbl
@@ -0,0 +1,6 @@
+#lang scribble/manual
+@(require scribble/eval)
+
+@interaction[
+(syntax-e #'(+ 1 2))
+]
diff --git a/collects/tests/scribble/docs/stxobj.txt b/collects/tests/scribble/docs/stxobj.txt
new file mode 100644
index 00000000..bab5ef76
--- /dev/null
+++ b/collects/tests/scribble/docs/stxobj.txt
@@ -0,0 +1,2 @@
+  > (syntax-e #'(+ 1 2))                            
+  '(#<syntax:1:0 +> #<syntax:1:0 1> #<syntax:1:0 2>)