From 31f39a0f0f8e621ea4fd1bf04b2aa7d1c0ebb1c5 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 18 Nov 2006 23:23:37 +0000
Subject: [PATCH] get-text-extent must always return an inexact width

svn: r4883
---
 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 be9c1425d1..42c2ae54df 100644
--- 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