From 93be8eda04c23b82eadadbfcc2d41e8729a257ed Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 6 Mar 2019 16:07:23 -0800 Subject: [PATCH] retach --- fontland/fontland/table/CFF_.rkt | 2 +- fontland/fontland/table/cff/cff-dict.rkt | 1 - fontland/fontland/table/cff/cff-font.rkt | 2 +- fontland/fontland/tables.rkt | 2 +- 4 files changed, 3 insertions(+), 4 deletions(-) diff --git a/fontland/fontland/table/CFF_.rkt b/fontland/fontland/table/CFF_.rkt index 119ba1d3..74fd830a 100644 --- a/fontland/fontland/table/CFF_.rkt +++ b/fontland/fontland/table/CFF_.rkt @@ -2,4 +2,4 @@ (require "cff/cff-font.rkt") ;; the CFFFont object acts as the decoder for the `CFF ` table. -(provide (rename-out (CFFFont CFF_))) +(provide (rename-out [CFFFont CFF_])) diff --git a/fontland/fontland/table/cff/cff-dict.rkt b/fontland/fontland/table/cff/cff-dict.rkt index d1c201f3..609f823e 100644 --- a/fontland/fontland/table/cff/cff-dict.rkt +++ b/fontland/fontland/table/cff/cff-dict.rkt @@ -62,7 +62,6 @@ https://github.com/mbutterick/fontkit/blob/master/src/cff/CFFDict.js (define val (decodeOperands (third field) stream ret operands)) - (unless (void? val) ;; ignoring PropertyDescriptor nonsense (hash-set! ret (second field) val)) diff --git a/fontland/fontland/table/cff/cff-font.rkt b/fontland/fontland/table/cff/cff-font.rkt index b86310f7..007fa4b2 100644 --- a/fontland/fontland/table/cff/cff-font.rkt +++ b/fontland/fontland/table/cff/cff-font.rkt @@ -1,6 +1,6 @@ #lang debug racket/base (require racket/class racket/match racket/list xenomorph "cff-top.rkt") -(provide (rename-out (CFFFont CFF_))) +(provide CFFFont) #| approximates diff --git a/fontland/fontland/tables.rkt b/fontland/fontland/tables.rkt index 3491fd4f..b0d56687 100644 --- a/fontland/fontland/tables.rkt +++ b/fontland/fontland/tables.rkt @@ -16,7 +16,7 @@ https://github.com/mbutterick/fontkit/blob/master/src/tables/index.js (r+p TABLE-ID-STRING ...) (define ID (make-hasheq (map cons (list 'TABLE-ID ...) (list TABLE-ID ...))))))])) -(define-table-codecs table-codecs head hhea hmtx maxp OS/2 post cvt_ fpgm loca prep glyf #;CFF_) +(define-table-codecs table-codecs head hhea hmtx maxp OS/2 post cvt_ fpgm loca prep glyf CFF_) #|