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[ 'D] +@chunk[ + 'E] + +@chunk[ + 'F] + +@CHUNK[ + 'G] + +@CHUNK[ + 'H] @chunk[<*> (require rackunit) (check-equal? (list ) - '(A B C D))] + '(A B C D E F G H))]