From a0cbb07ea0c0e138dd7e5a016728df890c6af4b3 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sat, 1 Dec 2018 12:13:09 -0800 Subject: [PATCH] withhold --- pitfall/pitfall/embedded.rkt | 2 +- pitfall/pitfall/font-open.rkt | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/pitfall/pitfall/embedded.rkt b/pitfall/pitfall/embedded.rkt index d9c315a4..17f8afad 100644 --- a/pitfall/pitfall/embedded.rkt +++ b/pitfall/pitfall/embedded.rkt @@ -211,7 +211,7 @@ HERE (module+ test (require rackunit fontland) - (define f (openSync "../ptest/assets/charter.ttf" #f)) + (define f (openSync "../ptest/assets/charter.ttf")) (define ef (make-object EmbeddedFont #f f #f)) (check-equal? (send ef widthOfString "f" 1000) 321.0) (check-equal? (ยท ef ascender) 980) diff --git a/pitfall/pitfall/font-open.rkt b/pitfall/pitfall/font-open.rkt index c6681bbf..8df68ddb 100644 --- a/pitfall/pitfall/font-open.rkt +++ b/pitfall/pitfall/font-open.rkt @@ -12,8 +12,8 @@ [else (define font (cond - [(string? src) (openSync src family)] - [(path? src) (openSync (path->string src) family)] + [(string? src) (openSync src #;family)] + [(path? src) (openSync (path->string src) #;family)] ;; todo: other font-loading cases [else (raise-argument-error 'PDFFont-open "loadable font thingy" src)])) (make-object EmbeddedFont document font id)]))