From e65c165e7b2f072bf471146a02221e240443b6d9 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 18 Jul 2018 14:56:03 -0700 Subject: [PATCH] and another --- pollen/decode.rkt | 4 +++- pollen/private/ts.rktd | 2 +- 2 files changed, 4 insertions(+), 2 deletions(-) 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