diff --git a/quad2/font.rkt b/quad2/font.rkt index 7122370a..d30cb764 100644 --- a/quad2/font.rkt +++ b/quad2/font.rkt @@ -134,7 +134,7 @@ ;; we trust it exists because we used `setup-font-path-table` earlier, ;; but if not, fallback fonts will kick in, on the idea that a missing font shouldn't stop the show ;; we know we have :font-family because this pass is restricted to that key - (match (string-downcase (hash-ref attrs :font-family)) + (match (hash-ref attrs :font-family) [(? font-path-string? ps) (path->complete-path ps)] [this-font-family (define this-bold (hash-ref attrs :font-bold (λ () (error 'need-default-font-bold))))