From 0de55b5f3a4c38f5097d4cb66a595f889798a81b Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 1 Dec 2009 02:19:38 +0000 Subject: [PATCH] set svn:eol-style svn: r17123 --- collects/2htdp/tests/stop.ss | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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