smalltalk-tng
view experiments/bidi-generator-example.ss @ 323:454c18798969
merger
| author | Tony Garnock-Jones <tonygarnockjones@gmail.com> |
|---|---|
| date | Tue Feb 07 11:34:20 2012 -0500 (3 months ago) |
| parents | |
| children |
line source
1 #lang scheme
2 (require "bidi-generator.ss")
4 (define (print-all)
5 (display "FIRST")
6 (newline)
7 (do ()
8 (#f)
9 (display (yield))
10 (newline)))
12 (let ((pa (generator () (print-all))))
13 (pa)
14 (pa 1)
15 (pa 2)
16 (pa 3))
18 (define (yield-four)
19 (generator ()
20 (yield 1)
21 (yield 2)
22 (yield 3)
23 (yield 4)
24 'final-value))
26 (let ((x (yield-four)))
27 (display (x))
28 (display (x 'a))
29 (display (x 'b))
30 (display (x 'c))
31 (display (x 'd)))