set svn:eol-style

svn: r17123
This commit is contained in:
Eli Barzilay 2009-12-01 02:19:38 +00:00
parent 2fd3c23393
commit 0de55b5f3a

View File

@ -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))))))