mirror of
https://github.com/janet-lang/janet
synced 2024-11-05 00:06:16 +00:00
20 lines
378 B
Plaintext
20 lines
378 B
Plaintext
|
(def f
|
||
|
|
(coro
|
||
|
|
(for i 0 10
|
||
|
|
(yield (string "yield " i))
|
||
|
|
(os/sleep 0))))
|
||
|
|
|
||
|
|
(print "simple yielding")
|
||
|
|
(each item f (print "got: " item ", now " (fiber/status f)))
|
||
|
|
|
||
|
|
(def f
|
||
|
|
(coro
|
||
|
|
(for i 0 10
|
||
|
|
(yield (string "yield " i))
|
||
|
|
(ev/sleep 0))))
|
||
|
|
|
||
|
|
(print "complex yielding")
|
||
|
|
(each item f (print "got: " item ", now " (fiber/status f)))
|
||
|
|
|
||
|
|
(print (fiber/status f))
|