From 3ea7c7fa2cd0a05086909b134e4c94acf7b5ab9f Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Fri, 17 Apr 2020 16:31:11 -0700
Subject: [PATCH] to path string

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

diff --git a/quad/fontproof/command.rkt b/quad/fontproof/command.rkt
index 969b7847..750778c4 100755
--- a/quad/fontproof/command.rkt
+++ b/quad/fontproof/command.rkt
@@ -71,7 +71,7 @@
                    [_ (match-define-values (trimmed-family bold? italic?) (resolve-family-bold-italic family))
                       (match ((dynamic-require 'fontland/font-path 'family->path) trimmed-family #:bold bold? #:italic italic?)
                         [#false "not found among installed fonts"]
-                        [pth (format "found installed at ~v" pth)])]))
+                        [(app path->string ps) (format "found installed at ~v" ps)])]))
                (log-info (format "family ~v ~a" family status))]
               [else
                (make-proof family