slightly better error reporting

svn: r1573
2005-12-09 21:59:51 +00:00 · 2005-12-09 21:59:51 +00:00 · edd5e54a4f
commit edd5e54a4f
parent 0164317066
1 changed files with 4 additions and 0 deletions
--- 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