From 148ec8da0845d0192f5cfab5dbc6e9ae10c3b0aa Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= <georges.duperon@gmail.com>
Date: Mon, 19 Sep 2016 03:12:01 +0200
Subject: [PATCH] Fixed bad bug when a #:save-as chunk contained a ...

---
 private/lp.rkt             |  2 +-
 test/test-chunks-order.rkt | 13 ++++++++++++-
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/private/lp.rkt b/private/lp.rkt
index 5ad2391d..f6856911 100644
--- a/private/lp.rkt
+++ b/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))
diff --git a/test/test-chunks-order.rkt b/test/test-chunks-order.rkt
index 8edd82b2..16336de5 100644
--- a/test/test-chunks-order.rkt
+++ b/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))]