From d57d7576094c66b6032d4d2207f8f624445ec145 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 29 Aug 2014 07:47:50 -0700 Subject: [PATCH] make extensions into strings --- file.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/file.rkt b/file.rkt index 18c9661..5e72453 100644 --- 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?)