From fd5aeff0a5d7f7e697941c4dcaafafdaf7e6f423 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Wed, 1 Nov 2006 04:10:01 +0000 Subject: [PATCH] fixed place-image's contracts svn: r4727 --- collects/htdp/world.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/htdp/world.ss b/collects/htdp/world.ss index 7495033270..51d41f4f0c 100644 --- a/collects/htdp/world.ss +++ b/collects/htdp/world.ss @@ -89,8 +89,8 @@ (define (place-image image x y scene) (check-image 'place-image image "first") - (check-arg 'place-image (and (number? x) (real? x)) 'number "second" x) - (check-arg 'place-image (and (number? y) (real? x)) 'number "third" y) + (check-arg 'place-image (and (number? x) (integer? x)) 'integer "second" x) + (check-arg 'place-image (and (number? y) (integer? x)) 'integer "third" y) (check-image 'place-image scene "fourth" "scene") (let () (define sw (image-width scene))