diff --git a/pollen/decode.rkt b/pollen/decode.rkt index efc6d6a..bfbe54b 100644 --- a/pollen/decode.rkt +++ b/pollen/decode.rkt @@ -130,6 +130,8 @@ (define+provide/contract (decode-linebreaks elems [maybe-linebreak-proc '(br)] #:separator [newline (setup:linebreak-separator)]) ((txexpr-elements?) ((or/c #f txexpr-element? (txexpr-element? txexpr-element? . -> . (or/c #f txexpr-element?))) #:separator string?) . ->* . txexpr-elements?) + (unless (string? newline) + (raise-argument-error 'decode-linebreaks "string" newline)) (define linebreak-proc (if (procedure? maybe-linebreak-proc) maybe-linebreak-proc (λ (e1 e2) maybe-linebreak-proc))) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index 9055056..f3de4a9 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1531775044 +1531950418