fixed a bug in text so that inexact integers are converted to exact ones

2010-05-22 07:51:01 -05:00 · 2010-05-22 07:51:01 -05:00 · b319039468
commit b319039468
parent 5ce13a34b7
1 changed files with 3 additions and 1 deletions
--- a/collects/2htdp/private/img-err.rkt
+++ b/collects/2htdp/private/img-err.rkt
@ -183,7 +183,9 @@
     arg]
    [(font-size)
     (check-arg fn-name (and (integer? arg) (<= 1 arg 255)) 'font-size i arg)
-     arg]
+     (if (exact? arg)
+         arg
+         (inexact->exact arg))]
    [(face)
     (check-arg fn-name (or (not arg) (string? arg)) 'face i arg)
     arg]