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

minor

Browse Source 
svn: r9042
This commit is contained in:
Eli Barzilay 2008-03-21 17:51:41 +00:00
parent 40ec407042
commit c3a503a897
1 changed files with 16 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/mzlib/scribblings/etc.scrbl
View File

@ -179,12 +179,11 @@ Repeatedly invokes the @scheme[f] procedure until the @scheme[done?]
procedure returns @scheme[#t]: procedure returns @scheme[#t]:
@schemeblock[ @schemeblock[
(define loop-until (define (loop-until start done? next f)
(lambda (start done? next f)
(let loop ([i start]) (let loop ([i start])
(unless (done? i) (unless (done? i)
(f i) (f i)
(loop (next i)))))) (loop (next i)))))
]} ]}
@ -222,9 +221,9 @@ Equivalent to @scheme[(let id bindings body ...+)].}
Equivalent, respectively, to Equivalent, respectively, to
@schemeblock[ @schemeblock[
(letrec ((id value-expr)) id) (letrec ([id value-expr]) id)
(letrec ((id (lambda (arg-id ...) value-expr))) id) (letrec ([id (lambda (arg-id ...) value-expr)]) id)
(letrec ((id (lambda (arg-id ... . rest-id) value-expr))) id) (letrec ([id (lambda (arg-id ... . rest-id) value-expr)]) id)
]} ]}