suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

svn: r10701

Browse Source
This commit is contained in:
Matthias Felleisen 2008-07-09 17:51:05 +00:00
parent 63a4e5af2e
commit e5a28ba411
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/htdp/world.ss
View File

@ -1,3 +1,15 @@
#|
workshop experience:
stop-when should have a different signature:
stop-when : (World -> Boolean) (World -> Image)
(stop-when C F) should have this semantics:
on each assignment to world,
(begin
(set! current-world new-world)
(when (C current-world) (render (F current-world))))
|#
;; Fri Jul 4 10:25:47 EDT 2008: added ke=? and key-event?
;; Mon Jun 16 15:38:14 EDT 2008: removed end-of-time and provided stop-when
;; also allow repeated setting of callbacks now