From c3a503a897c5ece15fcff752b79612ba89d82d83 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 21 Mar 2008 17:51:41 +0000 Subject: [PATCH] minor svn: r9042 --- collects/mzlib/scribblings/etc.scrbl | 33 ++++++++++++++-------------- 1 file changed, 16 insertions(+), 17 deletions(-) diff --git a/collects/mzlib/scribblings/etc.scrbl b/collects/mzlib/scribblings/etc.scrbl index b33e31c984..2ddf335c74 100644 --- a/collects/mzlib/scribblings/etc.scrbl +++ b/collects/mzlib/scribblings/etc.scrbl @@ -24,15 +24,15 @@ The @schememodname[mzlib/etc] library re-exports the following @schememodname[scheme/base] and other libraries: @schemeblock[ -boolean=? -true -false -build-list -build-string -build-vector -compose -local -symbol=? + boolean=? + true + false + build-list + build-string + build-vector + compose + local + symbol=? ] @defform[(begin-lifted expr ...+)] @@ -170,21 +170,20 @@ corresponding expression are bound to the multiple variables. ]} -@defproc[(loop-until [start any/c][done? (any/c . -> . any)] +@defproc[(loop-until [start any/c] [done? (any/c . -> . any)] [next (any/c . -> . any/c)] - [f (any/c . -> . any)]) + [f (any/c . -> . any)]) void?]{ Repeatedly invokes the @scheme[f] procedure until the @scheme[done?] procedure returns @scheme[#t]: @schemeblock[ -(define loop-until - (lambda (start done? next f) + (define (loop-until start done? next f) (let loop ([i start]) (unless (done? i) (f i) - (loop (next i)))))) + (loop (next i))))) ]} @@ -222,9 +221,9 @@ Equivalent to @scheme[(let id bindings body ...+)].} Equivalent, respectively, to @schemeblock[ -(letrec ((id value-expr)) id) -(letrec ((id (lambda (arg-id ...) value-expr))) id) -(letrec ((id (lambda (arg-id ... . rest-id) value-expr))) id) + (letrec ([id value-expr]) id) + (letrec ([id (lambda (arg-id ...) value-expr)]) id) + (letrec ([id (lambda (arg-id ... . rest-id) value-expr)]) id) ]}