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

forgot examples

Browse Source 
svn: r18709
This commit is contained in:
Eli Barzilay 2010-04-01 08:27:15 +00:00
parent 05fca5df14
commit 853db0ae55
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scribblings/reference/pairs.scrbl
View File

@ -7,7 +7,7 @@
@(define (generate-c_r-example proc) @(define (generate-c_r-example proc)
(define (make-it start n) (define (make-it start n)
(generator (generator ()
(let loop ([start start] (let loop ([start start]
[n n]) [n n])
(yield (list* n start)) (yield (list* n start))

12
collects/scribblings/reference/sequences.scrbl
View File

@ -335,7 +335,7 @@ Note: the first form must be @scheme[()], and in the future this will
hold argument names that are used in the initial generator call. hold argument names that are used in the initial generator call.
@examples[#:eval (generator-eval) @examples[#:eval (generator-eval)
(define g (generator (define g (generator ()
(let loop ([x '(a b c)]) (let loop ([x '(a b c)])
(if (null? x) (if (null? x)
0 0
@ -354,7 +354,7 @@ with a stop-value known to the generator.
@examples[#:eval (generator-eval) @examples[#:eval (generator-eval)
(define my-stop-value (gensym)) (define my-stop-value (gensym))
(define my-generator (generator (define my-generator (generator ()
(let loop ([x '(a b c)]) (let loop ([x '(a b c)])
(if (null? x) (if (null? x)
my-stop-value my-stop-value
@ -404,14 +404,14 @@ the arguments to the generator instance. Note that a value cannot be passed back
to the generator until after the first @scheme[yield] has been invoked. to the generator until after the first @scheme[yield] has been invoked.
@examples[#:eval (generator-eval) @examples[#:eval (generator-eval)
(define my-generator (generator (yield 1) (yield 2 3 4))) (define my-generator (generator () (yield 1) (yield 2 3 4)))
(my-generator) (my-generator)
(my-generator) (my-generator)
] ]
@examples[#:eval (generator-eval) @examples[#:eval (generator-eval)
(define pass-values-generator (define pass-values-generator
(generator (generator ()
(let* ([from-user (yield 2)] (let* ([from-user (yield 2)]
[from-user-again (yield (add1 from-user))]) [from-user-again (yield (add1 from-user))])
(yield from-user-again)))) (yield from-user-again))))
@ -436,7 +436,7 @@ of the generator.
] ]
@examples[#:eval (generator-eval) @examples[#:eval (generator-eval)
(define my-generator (generator (yield 1) (yield 2))) (define my-generator (generator () (yield 1) (yield 2)))
(generator-state my-generator) (generator-state my-generator)
(my-generator) (my-generator)
(generator-state my-generator) (generator-state my-generator)
@ -445,7 +445,7 @@ of the generator.
(my-generator) (my-generator)
(generator-state my-generator) (generator-state my-generator)
(define introspective-generator (generator ((yield 1)))) (define introspective-generator (generator () ((yield 1))))
(introspective-generator) (introspective-generator)
(introspective-generator (introspective-generator
(lambda () (generator-state introspective-generator))) (lambda () (generator-state introspective-generator)))