fix `syntax/loc' to preserve properties

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

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)