From 9a11ad1d67fc4910ac8e72415b37839bc42a7460 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Sat, 2 Jan 2010 22:04:26 +0000 Subject: [PATCH] svn: r17465 --- collects/2htdp/private/world.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/2htdp/private/world.ss b/collects/2htdp/private/world.ss index 989450c601..735fe7b7c9 100644 --- a/collects/2htdp/private/world.ss +++ b/collects/2htdp/private/world.ss @@ -250,7 +250,7 @@ (let ([b (box d)]) (set! w (cons b w)) ;; low priority, otherwise it's too fast - (queue-callback (lambda () (unbox b)) #f))] + (queue-callback (lambda () ((unbox b))) #f))] [(< draw# 0) (set-draw#!) (for-each (lambda (b) (set-box! b void)) w)