From 9143c1c7df881cbb098a33e6edb4398bbd346213 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 25 Mar 2012 19:22:57 -0600
Subject: [PATCH] fix `syntax/loc' to preserve properties

---
 collects/racket/private/stxloc.rkt | 2 +-
 collects/tests/racket/syntax.rktl  | 5 +++++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/collects/racket/private/stxloc.rkt b/collects/racket/private/stxloc.rkt
index 1356fbf00c..b11275697b 100644
--- a/collects/racket/private/stxloc.rkt
+++ b/collects/racket/private/stxloc.rkt
@@ -33,7 +33,7 @@
         (datum->syntax stx
                        (syntax-e stx)
                        loc
-                       #f)
+                       stx)
 	stx))
 
   ;; Like syntax, but also takes a syntax object
diff --git a/collects/tests/racket/syntax.rktl b/collects/tests/racket/syntax.rktl
index 4b84ef5268..620697f1fb 100644
--- a/collects/tests/racket/syntax.rktl
+++ b/collects/tests/racket/syntax.rktl
@@ -1433,6 +1433,11 @@
         p))
 
 
+;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Check that `syntax/loc' preserves the 'parent-shape property
+
+(test #\[ syntax-property (syntax/loc #'a [b c]) 'paren-shape)
+
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (report-errs)