use list of exts

4 years ago · 9807d5f718
parent f424e50e1f
commit 9807d5f718
1 changed files with 1 additions and 1 deletions
--- a/quad/quadwriter/font.rkt
+++ b/quad/quadwriter/font.rkt
@ -89,7 +89,7 @@

 (define (font-path-string? x)
  (and (path-string? x)
-       (member (path-get-extension (string->path x)) '(#".otf" #".ttf" #".woff"))
+       (member (path-get-extension (string->path x)) font-file-extensions)
       #true))

 (module+ test