diff --git a/pollen/decode.rkt b/pollen/decode.rkt index bfbe54b..980d43e 100644 --- a/pollen/decode.rkt +++ b/pollen/decode.rkt @@ -197,12 +197,14 @@ #:linebreak-proc (txexpr-elements? . -> . txexpr-elements?) #:force? boolean?) . ->* . txexpr-elements?) + (define paragraph-separator (setup:paragraph-separator)) + (unless (string? paragraph-separator) + (raise-argument-error 'decode-paragraphs "string" paragraph-separator)) (define (prep-paragraph-flow elems) (linebreak-proc (merge-newlines (trimf elems whitespace?)))) (define (paragraph-break? x) - (define paragraph-separator (setup:paragraph-separator)) (define paragraph-pattern (pregexp (format "^~a+$" paragraph-separator))) (and (string? x) (regexp-match paragraph-pattern x))) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index f3de4a9..8b5b1e8 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1531950418 +1531950963