From 9a028a38221df7138bd44d5cc3ce7a9bf9e08243 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 30 Jun 2017 11:30:18 -0700 Subject: [PATCH] update --- pitfall/fontkit/opentype.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pitfall/fontkit/opentype.rkt b/pitfall/fontkit/opentype.rkt index 536c1e40..48c33c79 100644 --- a/pitfall/fontkit/opentype.rkt +++ b/pitfall/fontkit/opentype.rkt @@ -17,7 +17,7 @@ (define-subclass Pointer (LSR-Pointer)) (define LangSysRecord (+Struct (dictify 'tag (+String 4) - 'langSys (+LSR-Pointer uint16be LangSysTable 'parent)))) + 'langSys (+LSR-Pointer uint16be LangSysTable (mhash 'type 'parent))))) (define-subclass Pointer (DLS-Pointer)) (define-subclass Array (DLS-Array)) @@ -30,7 +30,7 @@ (define-subclass Pointer (ScriptRecord-Pointer)) (define ScriptRecord (+ScriptRecord-Struct (dictify 'tag (+String 4) - 'script (+ScriptRecord-Pointer uint16be Script 'parent)))) + 'script (+ScriptRecord-Pointer uint16be Script (mhash 'type 'parent))))) (define ScriptList (+Array ScriptRecord uint16be)) @@ -48,7 +48,7 @@ (define-subclass Pointer (FeatureRec-Pointer)) (define FeatureRecord (+FeatureRec (dictify 'tag (+String 4) - 'feature (+FeatureRec-Pointer uint16be Feature 'parent)))) + 'feature (+FeatureRec-Pointer uint16be Feature (mhash 'type 'parent))))) (define FeatureList (+Array FeatureRecord uint16be))