From ab663b483325e1e2d78d7b8d024f15806bf23a61 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Mon, 1 Apr 2013 12:10:27 -0400 Subject: [PATCH] bring code to old state, make consistent with docs, Closes PR 13642 again --- collects/2htdp/universe.rkt | 2 +- collects/teachpack/2htdp/scribblings/universe.scrbl | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/2htdp/universe.rkt b/collects/2htdp/universe.rkt index 0511cf64e2..b6c5621de4 100644 --- a/collects/2htdp/universe.rkt +++ b/collects/2htdp/universe.rkt @@ -327,7 +327,7 @@ [hgt (image-height fst)]) (big-bang m* - (on-tick rest (/ 1 r)) + (on-tick rest r) (on-draw (lambda (m) (if (empty? m) (text "The End" 22 'red) (first m)))) (stop-when empty?)))) diff --git a/collects/teachpack/2htdp/scribblings/universe.scrbl b/collects/teachpack/2htdp/scribblings/universe.scrbl index 24bb9cc336..a2aeb751f7 100644 --- a/collects/teachpack/2htdp/scribblings/universe.scrbl +++ b/collects/teachpack/2htdp/scribblings/universe.scrbl @@ -127,8 +127,8 @@ Example: @defproc[(run-movie [r (and/c real? positive?)] [m [Listof image?]]) true]{ - @racket[run-movie] displays the list of images @racket[m] at the rate of - @racket[r] images per second.} + @racket[run-movie] displays the list of images @racket[m], spending + @racket[r] seconds per image.} @;-----------------------------------------------------------------------------