retach

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

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

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

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_)
 
 
 #|