a mutation

5 years ago · 94943055c3
parent 6942780f64
commit 94943055c3
1 changed files with 305 additions and 304 deletions
--- a/fontland/fontland/cff-glyph.rkt
+++ b/fontland/fontland/cff-glyph.rkt
@ -275,7 +275,8 @@ https://github.com/mbutterick/fontkit/blob/master/src/glyph/CFFGlyph.js
                             (loop (not phase))])))]
                     [(12)
                      (println "warning: check truthiness")
-                   (case= (read-byte stream)
+                      (set! op (read-byte stream))
+                      (case= op
                             [(3) ;; and
                              (push stack (if (and (pop stack) (pop stack)) 1 0))]
                             [(4) ;; or