From cedb2d088fab63e795d1fb889c9cdc86b01b856c Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Wed, 1 Nov 2006 21:49:20 +0000 Subject: [PATCH] put-pinhole instead of move-pinhole for nw:rectangle svn: r4739 --- collects/htdp/world.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/htdp/world.ss b/collects/htdp/world.ss index 51d41f4f0c..fcb943d625 100644 --- a/collects/htdp/world.ss +++ b/collects/htdp/world.ss @@ -85,7 +85,7 @@ (check-pos 'rectangle height "second") (check-mode 'rectangle mode "third") (check-color 'rectangle color "fourth") - (move-pinhole (rectangle width height mode color) (/ width -2) (/ height -2))) + (put-pinhole (rectangle width height mode color) 0 0)) (define (place-image image x y scene) (check-image 'place-image image "first")