From edd5e54a4f48d63747dc47c93eff093def1c0cf9 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 9 Dec 2005 21:59:51 +0000
Subject: [PATCH] slightly better error reporting

svn: r1573
---
 collects/mred/private/afm.ss | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/collects/mred/private/afm.ss b/collects/mred/private/afm.ss
index 2da0dea1d1..be9c1425d1 100644
--- a/collects/mred/private/afm.ss
+++ b/collects/mred/private/afm.ss
@@ -352,6 +352,10 @@
       (let* ([descender (- (or descender bbox-down 0))]
 	     [ascender (or ascender bbox-up)]
 	     [cap-height (or cap-height ascender bbox-up)])
+	(unless bbox-up
+	  (error 'afm "bbox-up missing for ~a" file))
+	(unless descender
+	  (error 'afm "bbox-down missing for ~a" file))
 	(make-font (+ bbox-up descender)
 		   descender
 		   ascender