woffishness

5 years ago · db6754b9e5
parent 06bb817002
commit db6754b9e5
1 changed files with 3 additions and 4 deletions
--- a/fontland/fontland/table-stream.rkt
+++ b/fontland/fontland/table-stream.rkt
@ -37,10 +37,9 @@
  (define table (hash-ref (hash-ref directory 'tables) tag))
  (and table
       (pos (ttf-font-port this) (hash-ref table 'offset))
-       (let ([maybe-woff-compLength (hash-ref table 'compLength #f)])
-         (if (and maybe-woff-compLength (< maybe-woff-compLength (hash-ref table 'length)))
-             (open-input-bytes (inflate (peek-bytes maybe-woff-compLength 0 (ttf-font-port this))))
-             (ttf-font-port this)))))
+       (if (and (woff-font? this) (< (hash-ref table 'compLength) (hash-ref table 'length)))
+           (open-input-bytes (inflate (peek-bytes (hash-ref table 'compLength) 0 (ttf-font-port this))))
+           (ttf-font-port this))))
  
 (define (decode-table this table-tag)
  (unless (hash-has-key? table-codecs table-tag)