make extensions into strings

pull/2/head
Matthew Butterick 10 years ago
parent 520effbfbc
commit d57d757609

@ -21,7 +21,7 @@
;; todo: add extensions ;; todo: add extensions
(define binary-extensions (define binary-extensions
'(gif jpg jpeg mp3 png zip pdf ico tar ai eps exe)) (map ->string '(gif jpg jpeg mp3 png zip pdf ico tar ai eps exe)))
(define+provide/contract (has-binary-ext? x) (define+provide/contract (has-binary-ext? x)
(coerce/path? . -> . coerce/boolean?) (coerce/path? . -> . coerce/boolean?)

Loading…
Cancel
Save