make extensions into strings

10 years ago · d57d757609
parent 520effbfbc
commit d57d757609
1 changed files with 1 additions and 1 deletions
--- a/file.rkt
+++ b/file.rkt
@ -21,7 +21,7 @@

 ;; todo: add 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)
  (coerce/path? . -> . coerce/boolean?)