misc improvements after writing a beginner program with contracts

svn: r12371 original commit: 788443072b63960a8df2319e4fdb6aa855c482ed
2008-11-10 05:54:04 +00:00 · 2008-11-10 05:54:04 +00:00 · 2c3393f53e
commit 2c3393f53e
parent 8365ec9fe5
1 changed files with 4 additions and 0 deletions
--- 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)