From f957d1ffa9254c0984c6091cbb852107336c7c80 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 18 Sep 2005 12:32:51 +0000
Subject: [PATCH] afm top space uses Ascent instead of CapHeight

svn: r872
---
 collects/mred/private/afm.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mred/private/afm.ss b/collects/mred/private/afm.ss
index 35b516ee78..35a3fba9a8 100644
--- 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))