From ca654bfdba97cd6eb8752d23c87e8f177b51de90 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 3 Jul 2017 14:25:43 -0700 Subject: [PATCH] ch --- pitfall/fontkit/subset.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pitfall/fontkit/subset.rkt b/pitfall/fontkit/subset.rkt index 15c78b7d..76a36f9b 100644 --- a/pitfall/fontkit/subset.rkt +++ b/pitfall/fontkit/subset.rkt @@ -111,17 +111,17 @@ https://github.com/mbutterick/fontkit/blob/master/src/subset/TTFSubset.js (define gid (list-ref (· this glyphs) idx)) (send this _addGlyph gid)) - (define maxp (cloneDeep (send (· this font maxp) kv))) + (define maxp (cloneDeep (send (· this font maxp) dump))) (dict-set! maxp 'numGlyphs (length (· this glyf))) ;; populate the new loca table (dict-update! (· this loca) 'offsets (λ (vals) (append vals (list (· this offset))))) (loca-preEncode (· this loca)) - (define head (cloneDeep (send (· this font head) kv))) + (define head (cloneDeep (send (· this font head) dump))) (dict-set! head 'indexToLocFormat (· this loca version)) - (define hhea (cloneDeep (send (· this font hhea) kv))) + (define hhea (cloneDeep (send (· this font hhea) dump))) (dict-set! hhea 'numberOfMetrics (length (· this hmtx metrics))) (send Directory encode stream