From 8834de48c532aada67ceace62d0bd22e0bf3bf6b Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 5 Dec 2018 22:04:56 -0800 Subject: [PATCH] structify subset --- pitfall/pitfall/embedded.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pitfall/pitfall/embedded.rkt b/pitfall/pitfall/embedded.rkt index 64654f18..0c11d457 100644 --- a/pitfall/pitfall/embedded.rkt +++ b/pitfall/pitfall/embedded.rkt @@ -67,7 +67,7 @@ https://github.com/mbutterick/pdfkit/blob/master/lib/font/embedded.coffee (for/lists (idxs posns) ([(g i) (in-indexed glyphs)] [posn (in-list positions)]) - (define gid (send (· this subset) includeGlyph (glyph-id g))) + (define gid (includeGlyph (· this subset) (glyph-id g))) (define subset-idx (toHex gid)) (set-glyph-position-advance-width! posn (glyph-advance-width g)) @@ -94,7 +94,7 @@ https://github.com/mbutterick/pdfkit/blob/master/lib/font/embedded.coffee (when isCFF (hash-set! (· fontFile payload) 'Subtype "CIDFontType0C")) - (send fontFile end (get-output-bytes (· this subset encode-to-port))) + (send fontFile end (get-output-bytes (encode-to-port (· this subset)))) (define familyClass (let ([val (if (send (· this font) has-table? 'OS/2) (· this font OS/2 sFamilyClass)