From 7e9d4f53d850f42daa347ca0a14e8f57fe050c6b Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 26 May 2019 11:25:13 -0700 Subject: [PATCH] fix font resolution order --- quad/quadwriter/font.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/quad/quadwriter/font.rkt b/quad/quadwriter/font.rkt index db2e6d68..f56c74cd 100644 --- a/quad/quadwriter/font.rkt +++ b/quad/quadwriter/font.rkt @@ -36,8 +36,8 @@ (hash-clear! font-paths) (define-values (dir path _) (split-path base-path)) (define doc-fonts-dir (build-path dir "fonts")) - ;; run doc-fonts-dir first because earlier fonts take precedence - (for* ([fonts-dir (in-list (list quadwriter-fonts-dir doc-fonts-dir))] + ;; run doc-fonts-dir first because earlier fonts take precedence (using hash-ref! below) + (for* ([fonts-dir (in-list (list doc-fonts-dir quadwriter-fonts-dir))] #:when (directory-exists? fonts-dir) [font-family-subdir (in-directory fonts-dir)] #:when (directory-exists? font-family-subdir)