From 2c3393f53e24d32f8059a72817c147f4b20c3613 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 10 Nov 2008 05:54:04 +0000
Subject: [PATCH] misc improvements after writing a beginner program with
 contracts

svn: r12371

original commit: 788443072b63960a8df2319e4fdb6aa855c482ed
---
 collects/mrlib/cache-image-snip.ss | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/collects/mrlib/cache-image-snip.ss b/collects/mrlib/cache-image-snip.ss
index 8895706d..836c2ec3 100644
--- a/collects/mrlib/cache-image-snip.ss
+++ b/collects/mrlib/cache-image-snip.ss
@@ -54,6 +54,10 @@
       
       ;; the pinhole's coordinates
       (init-field px py)
+      (when (inexact? px)
+        (set! px (floor (inexact->exact px))))
+      (when (inexact? py)
+        (set! py (floor (inexact->exact py))))
       (define/public (get-pinhole) (values px py))
 
       (init-field (width #f)