use list of exts

main
Matthew Butterick 5 years ago
parent f424e50e1f
commit 9807d5f718

@ -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

Loading…
Cancel
Save