get-text-extent must always return an inexact width

svn: r4883
2006-11-18 23:23:37 +00:00 · 2006-11-18 23:23:37 +00:00 · 31f39a0f0f
commit 31f39a0f0f
parent 7707065a2d
1 changed files with 1 additions and 1 deletions
--- a/collects/mred/private/afm.ss
+++ b/collects/mred/private/afm.ss
@ -461,7 +461,7 @@
 	   [scale (/ size 1000.0)]
 	   [descent (* scale (font-descent font))])
      (values (* scale
-		 (let loop ([cl (map-symbols sym-map? (string->list string))][width 0])
+		 (let loop ([cl (map-symbols sym-map? (string->list string))][width 0.0])
 		   (cond
 		    [(empty? cl) width]
 		    [else (let ([achar (hash-table-get