Fixed bad bug when a #:save-as chunk contained a ...

private/lp.rkt

@@ -120,7 +120,7 @@
                                             (lambda (stx) #'(chunkref name))))
                        (begin-for-syntax (init-chunk-number #'name))))
              #,(if (attribute save-as)
-                   #'(define-syntax (save-as s) (syntax pre-content))
+                   #'(define-syntax (save-as s) (quote-syntax pre-content))
                    #'pre-content))))]))
 
 (define-syntax chunk (make-chunk #'racketblock #t))

test/test-chunks-order.rkt

@@ -12,8 +12,19 @@
 @CHUNK[<values>
        'D]
 
+@chunk[<values>
+       'E]
+
+@chunk[<values>
+       'F]
+
+@CHUNK[<values>
+       'G]
+
+@CHUNK[<values>
+       'H]
 
 @chunk[<*>
        (require rackunit)
        (check-equal? (list <values>)
-                     '(A B C D))]
+                     '(A B C D E F G H))]