diff --git a/collects/2htdp/tests/stop.ss b/collects/2htdp/tests/stop.ss index f0307f3e5f..680fc14cd5 100644 --- a/collects/2htdp/tests/stop.ss +++ b/collects/2htdp/tests/stop.ss @@ -4,11 +4,11 @@ (require 2htdp/universe) -;; on RETURN stop +;; on RETURN stop (define (main debug?) (big-bang "" - (on-key (lambda (w ke) + (on-key (lambda (w ke) (cond [(key=? ke "\r") (stop-with w)] [(= (string-length ke) 1) @@ -16,8 +16,7 @@ [else w]))) (state debug?) (on-draw (lambda (w) - (place-image + (place-image (text w 22 'black) 3 3 (empty-scene 100 100)))))) - \ No newline at end of file