mbutterick
/
pollen
3
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

check default arg for stringness

Browse Source
pull/178/head
Matthew Butterick 6 years ago
parent e6a5bbb639
commit 03aa25f4e5
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File

2
pollen/decode.rkt
Unescape Escape View File

@ -130,6 +130,8 @@
(define+provide/contract (decode-linebreaks elems [maybe-linebreak-proc '(br)] (define+provide/contract (decode-linebreaks elems [maybe-linebreak-proc '(br)]
#:separator [newline (setup:linebreak-separator)]) #: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?) ((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) (define linebreak-proc (if (procedure? maybe-linebreak-proc)
maybe-linebreak-proc maybe-linebreak-proc
(λ (e1 e2) maybe-linebreak-proc))) (λ (e1 e2) maybe-linebreak-proc)))

2
pollen/private/ts.rktd
Unescape Escape View File

@ -1 +1 @@
1531775044 1531950418

Write Preview
Loading…
Cancel
Save