one more paren-shape correction and test

svn: r4409

collects/tests/mzscheme/stx.ss

@@ -203,6 +203,10 @@
   (test #\[ syntax-property s 'paren-shape)
   (test #\[ syntax-property (syntax-case s () [(b _) #'b]) 'paren-shape))
 
+(let ([s (with-syntax ([(a ...) '(1 2 3)])
+	   #'[a ...])])
+  (test #\[ syntax-property s 'paren-shape))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Two-step macro chain
 

src/mzscheme/src/startup.inc

@@ -1343,6 +1343,7 @@
 "(and dest(datum->syntax-object"
 " dest"
 " 'dest"
+" dest"
 " dest))))"
 " `(datum->syntax-object/shape(quote-syntax ,small-dest)"
 " ,build))))))"

src/mzscheme/src/startup.ss

@@ -1567,6 +1567,7 @@
 				       (and dest (datum->syntax-object
 						  dest
 						  'dest
+						  dest
 						  dest))])
 				  `(datum->syntax-object/shape (quote-syntax ,small-dest)
 							       ,build))))])