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

fix inconsistent input contract

Browse Source
pull/9/head
Matthew Butterick 11 years ago
parent 5ac93d08ff
commit d86f523f04
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File

2
template.rkt
Unescape Escape View File

@ -26,7 +26,7 @@
(define+provide/contract (select* key value-source) (define+provide/contract (select* key value-source)
(coerce/symbol? (or/c hash? txexpr?) . -> . (or/c #f (listof txexpr-element?))) (coerce/symbol? (or/c hash? txexpr? pagenode? pathish?) . -> . (or/c #f (listof txexpr-element?)))
(define metas-result (and (not (txexpr? value-source)) (select-from-metas key value-source))) (define metas-result (and (not (txexpr? value-source)) (select-from-metas key value-source)))
(define doc-result (select-from-doc key value-source)) (define doc-result (select-from-doc key value-source))
(define result (append (or (and metas-result (list metas-result)) null) (or doc-result null))) (define result (append (or (and metas-result (list metas-result)) null) (or doc-result null)))

Write Preview
Loading…
Cancel
Save