withhold

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)

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)]))