fallback for older OS/2 tables

the capHeight and xHeight fields were introduced in the version 4 OS/2 table. Ancient fonts may have an earlier version of the table, and thus be missing these fields.

fontland/fontland/font.rkt

@@ -67,14 +67,14 @@ https://github.com/mbutterick/fontkit/blob/master/src/TTFFont.js
 (define (font-italic-angle font) (hash-ref (get-post-table font) 'italicAngle))
 
 (define (font-cap-height font)
-  (if (has-table? font #"OS/2")
+  (cond
-      (hash-ref (get-OS/2-table font) 'capHeight)
+    [(and (has-table? font #"OS/2") (hash-ref (get-OS/2-table font) 'capHeight #false))]
-      (font-ascent font)))
+    [else (font-ascent font)]))
 
 (define (font-x-height font)
-  (if (has-table? font #"OS/2")
+  (cond
-      (hash-ref (get-OS/2-table font) 'xHeight)
+    [(has-table? font #"OS/2") (hash-ref (get-OS/2-table font) 'xHeight #false)]
-      0))
+    [else 0]))
 
 (define (font-bbox font)
   (define head-table (get-head-table font))