afm top space uses Ascent instead of CapHeight

svn: r872
2005-09-18 12:32:51 +00:00 · 2005-09-18 12:32:51 +00:00 · f957d1ffa9
commit f957d1ffa9
parent 29c9c7d0dd
1 changed files with 1 additions and 1 deletions
--- a/collects/mred/private/afm.ss
+++ b/collects/mred/private/afm.ss
@ -252,7 +252,7 @@
 				     [r (read i)]
 				     [b (read i)])
 				 (set! bbox-down t))]
-		   [(capheight) (set! cap-height (read i))]
+		   [(ascender) (set! cap-height (read i))]
 		   [(characterset) (let ([m (regexp-match #rx#"[a-zA-Z_0-9-]+" (read-bytes-line i))])
 				     (when m
 				       (set! char-set-name (car m))