From b31903946805734394b80d33919f0c0a670668c4 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 22 May 2010 07:51:01 -0500
Subject: [PATCH] fixed a bug in text so that inexact integers are converted to
 exact ones

---
 collects/2htdp/private/img-err.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/2htdp/private/img-err.rkt b/collects/2htdp/private/img-err.rkt
index a5bd685678..456c3c81b0 100644
--- 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]