suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

get-text-extent must always return an inexact width

Browse Source 
svn: r4883
This commit is contained in:
Matthew Flatt 2006-11-18 23:23:37 +00:00
parent 7707065a2d
commit 31f39a0f0f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/afm.ss
View File

@ -461,7 +461,7 @@
[scale (/ size 1000.0)] [scale (/ size 1000.0)]
[descent (* scale (font-descent font))]) [descent (* scale (font-descent font))])
(values (* scale (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 (cond
[(empty? cl) width] [(empty? cl) width]
[else (let ([achar (hash-table-get [else (let ([achar (hash-table-get