logic flaw

4 years ago · 8323fd042b
parent c74302fb54
commit 8323fd042b
1 changed files with 1 additions and 1 deletions
--- a/quad/quadwriter/font.rkt
+++ b/quad/quadwriter/font.rkt
@ -83,7 +83,7 @@
  (cond
    [(hash-ref font-paths (make-key font-family bold italic) #false)]
    ;; try regular style if style-specific key isn't there for b i or bi
-    [(or bold italic (hash-ref font-paths regular-key #false))]
+    [(and (or bold italic) (hash-ref font-paths regular-key #false))]
    ;; otherwise use default
    [else default-font-face]))