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

evaluate limit expression once

Browse Source 
svn: r3868
This commit is contained in:
Eli Barzilay 2006-07-28 15:50:02 +00:00
parent 09ae4070ea
commit f322dffab5
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/swindle/misc.ss
View File

@ -1842,8 +1842,9 @@
;;>> (dotimes (i n) body ...) ;;>> (dotimes (i n) body ...)
;;> Loop `n' times, evaluating the body when `i' is bound to 0,1,...,n-1. ;;> Loop `n' times, evaluating the body when `i' is bound to 0,1,...,n-1.
(defsubst* (dotimes [i n] body0 body ...) (defsubst* (dotimes [i n] body0 body ...)
(let loop ([i 0]) (let ([n* n])
(when (< i n) body0 body ... (loop (add1 i))))) (let loop ([i 0])
(when (< i n*) body0 body ... (loop (add1 i))))))
;;>> (dolist (x list) body ...) ;;>> (dolist (x list) body ...)
;;> Loop with `x' bound to elements of `list'. ;;> Loop with `x' bound to elements of `list'.