From 9807d5f718afbc506c568062739ba613eaff77b2 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Fri, 17 Apr 2020 16:24:17 -0700
Subject: [PATCH] use list of exts

---
 quad/quadwriter/font.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/quad/quadwriter/font.rkt b/quad/quadwriter/font.rkt
index 99a8ce26..07f02fd0 100644
--- 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