From 9aa5ae0680330db1cd9b930f9458ffdde8677cc0 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 13 Nov 2019 06:43:49 -0800 Subject: [PATCH] simplify path for find-relative --- quad/quadwriter/font.rkt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/quad/quadwriter/font.rkt b/quad/quadwriter/font.rkt index 3a57da11..60d19da7 100644 --- a/quad/quadwriter/font.rkt +++ b/quad/quadwriter/font.rkt @@ -26,9 +26,11 @@ ;; this makes it possible to give font families generic names (e.g., "body-text") ;; and change the font files without disturbing anything else. (hash-clear! font-paths) - (define doc-fonts-dir (build-path (match/values (split-path base-path) - [(base name #true) (build-path base name)] - [(dir _ _) dir]) top-font-directory)) + (define doc-fonts-dir + (simple-form-path + (build-path (match/values (split-path base-path) + [(base name #true) (build-path base name)] + [(dir _ _) dir]) top-font-directory))) ;; 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)