check default arg for stringness

6 years ago · 03aa25f4e5
parent e6a5bbb639
commit 03aa25f4e5
2 changed files with 3 additions and 1 deletions
--- 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)))
--- a/pollen/private/ts.rktd
+++ b/pollen/private/ts.rktd
@ -1 +1 @@
-1531775044
+1531950418