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

bring code to old state, make consistent with docs, Closes PR 13642 again

Browse Source
This commit is contained in:
Matthias Felleisen 2013-04-01 12:10:27 -04:00
parent b78982fe6a
commit ab663b4833
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/2htdp/universe.rkt
View File

@ -327,7 +327,7 @@
[hgt (image-height fst)]) [hgt (image-height fst)])
(big-bang (big-bang
m* m*
(on-tick rest (/ 1 r)) (on-tick rest r)
(on-draw (lambda (m) (if (empty? m) (text "The End" 22 'red) (first m)))) (on-draw (lambda (m) (if (empty? m) (text "The End" 22 'red) (first m))))
(stop-when empty?)))) (stop-when empty?))))

4
collects/teachpack/2htdp/scribblings/universe.scrbl
View File

@ -127,8 +127,8 @@ Example:
@defproc[(run-movie [r (and/c real? positive?)] [m [Listof image?]]) @defproc[(run-movie [r (and/c real? positive?)] [m [Listof image?]])
true]{ true]{
@racket[run-movie] displays the list of images @racket[m] at the rate of @racket[run-movie] displays the list of images @racket[m], spending
@racket[r] images per second.} @racket[r] seconds per image.}
@;----------------------------------------------------------------------------- @;-----------------------------------------------------------------------------