From a964bb10bb3ba1dd21e366c6653398388f6b897a Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Wed, 6 Mar 2019 13:05:35 -0800
Subject: [PATCH] and here we go wrong

---
 fontland/fontland/table/cff/cff-dict.rkt | 7 +++++--
 fontland/fontland/table/cff/cff-font.rkt | 2 +-
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/fontland/fontland/table/cff/cff-dict.rkt b/fontland/fontland/table/cff/cff-dict.rkt
index d54cc116..75bd0e5c 100644
--- a/fontland/fontland/table/cff/cff-dict.rkt
+++ b/fontland/fontland/table/cff/cff-dict.rkt
@@ -18,7 +18,7 @@ https://github.com/mbutterick/fontkit/blob/master/src/cff/CFFDict.js
                                     [(list* 0th 1st _) (bitwise-ior (arithmetic-shift 0th 8) 1st)]
                                     [val val]))
                       (values key field))])
-
+    
     (define (decodeOperands type stream ret operands)
       (match type
         [(? list?)
@@ -49,19 +49,22 @@ https://github.com/mbutterick/fontkit/blob/master/src/cff/CFFDict.js
       (for ([(key field) (in-hash @fields)])
            (hash-set! ret (second field) (fourth field)))
 
-      #R ret
       (let loop ()
         (when (< (pos stream) end)
           (define b (read-byte stream))
           (cond
             [(< b 28)
+             #R b
              (when (= b 12)
                (set! b (bitwise-ior (arithmetic-shift b 8) (read-byte stream))))
              (define field (hash-ref @fields b #false))
+             #R field
              (unless field
                (error 'cff-dict-decode (format "unknown operator: ~a" b)))
 
              (define val (decodeOperands (third field) stream ret operands))
+
+             #R val
              (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 54e63035..c988e49f 100644
--- a/fontland/fontland/table/cff/cff-font.rkt
+++ b/fontland/fontland/table/cff/cff-font.rkt
@@ -55,7 +55,7 @@ https://github.com/mbutterick/fontkit/blob/master/src/cff/CFFFont.js
   (check-equal? (length (hash-ref cff-font 'globalSubrIndex)) 820)
   (check-equal? (length (hash-ref cff-font 'stringIndex)) 2404)
   ; 'version string
-  (check-equal? (hash-ref (hash-ref cff-font 'topDict) 'version) 2401)
+  #;(check-equal? (hash-ref (hash-ref cff-font 'topDict) 'version) 2401)
   (check-equal?
    (list-ref (hash-ref cff-font 'stringIndex) 2401)
    "004.106")