diff --git a/fontland/fontland/table/head.rkt b/fontland/fontland/table/head.rkt index f41df717..bb781e14 100644 --- a/fontland/fontland/table/head.rkt +++ b/fontland/fontland/table/head.rkt @@ -16,7 +16,7 @@ https://github.com/mbutterick/fontkit/blob/master/src/tables/head.js (define hfs-seconds (x:int #:size 8 #:signed #f #:endian 'be - #:post-decode (λ (int) (seconds->date (- int mac-to-posix-delta))) + #:post-decode (λ (int) (seconds->date (- int mac-to-posix-delta) #f)) #:pre-encode (λ (dt) (+ (date->seconds dt) mac-to-posix-delta)))) (define head (x:struct diff --git a/fontland/fontland/woff-directory.rkt b/fontland/fontland/woff-directory.rkt index 5d48e4f2..c58e5a6c 100644 --- a/fontland/fontland/woff-directory.rkt +++ b/fontland/fontland/woff-directory.rkt @@ -57,4 +57,4 @@ https://github.com/mbutterick/fontkit/blob/master/src/tables/WOFFDirectory.js (define name-table (decode head ip)) (check-equal? (hash-ref name-table 'magicNumber) #x5F0F3CF5) (check-equal? (hash-ref name-table 'unitsPerEm) 1000) - (check-equal? (hash-ref name-table 'created) (date* 52 12 5 10 7 2013 3 190 #t -25200 0 "PDT"))) \ No newline at end of file + (check-equal? (hash-ref name-table 'created) (date* 52 12 12 10 7 2013 3 190 #f 0 0 "UTC"))) \ No newline at end of file