From 03aa25f4e5226d9490ff7b686dcb24b2ff05c52e Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 18 Jul 2018 14:46:58 -0700 Subject: [PATCH] check default arg for stringness --- pollen/decode.rkt | 2 ++ pollen/private/ts.rktd | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) 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