diff --git a/pollen/private/external/output.rkt b/pollen/private/external/output.rkt index ddc462f..246a400 100644 --- a/pollen/private/external/output.rkt +++ b/pollen/private/external/output.rkt @@ -1,7 +1,7 @@ #lang racket/base (require racket/promise racket/contract/base - pollen/private/splice) ; to get splicing char + "../constants.rkt") ; to get splicing char #| 161017: This is a slightly amended version of scribble/text/output @@ -129,7 +129,7 @@ This version will also splice lists that begin with the splicing char. (define npfx (pfx+col (pfx+ pfx lpfx))) (set-mcar! pfxs npfx) (set-mcdr! pfxs 0) (if (list? c) - (let ([c (if (eq? splice-signal-tag (car c)) ; patch to cooperate with splicing char + (let ([c (if (eq? pollen-splicing-tag (car c)) ; patch to cooperate with splicing char (cdr c) c)]) (for ([c (in-list c)]) (loop c))) diff --git a/pollen/private/main-base.rkt b/pollen/private/main-base.rkt index 13a46ef..d1b6ccf 100644 --- a/pollen/private/main-base.rkt +++ b/pollen/private/main-base.rkt @@ -24,7 +24,7 @@ (define (stringify xs) (apply string-append (map to-string xs))) (define (parse xs-in parser-mode root-proc) - (define xs (splice (strip-leading-newlines xs-in) splice-signal-tag)) + (define xs (splice (strip-leading-newlines xs-in) pollen-splicing-tag)) (cond [(eq? parser-mode default-mode-pagetree) (decode-pagetree xs)] [(eq? parser-mode default-mode-markup) (apply root-proc (remove-voids xs))] diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index 8ca8176..9208307 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1589922989 +1592239893