shithub: fnt

Info  •  Files  •  Log  •  Branches

unused -> //

--- a/otf.rkt

+++ b/otf.rkt

@@ -122,7 +122,7 @@

 (define-syntax (mkfield stx)

   (syntax-parse stx

-    [(_ {~literal unused} type:id name:id)

+    [(_ {~literal //} type:id name:id)

      #'(field type

               `name

               #t)]

@@ -184,8 +184,8 @@

                    {uint32 magicNumber}

                    {uint16 flags}

                    {uint16 unitsPerEm}

-                   {unused LONGDATETIME created}

-                   {unused LONGDATETIME modified}

+                   {// LONGDATETIME created}

+                   {// LONGDATETIME modified}

                    {int16 xMin}

                    {int16 yMin}

                    {int16 xMax}