Artifact 2d70e293288f7505a92cf26b7b090bac1ee2b373:

• File packages/chan/lib/prototype/coroutine.tcl — part of check-in [30089dadcd] at 2017-08-30 21:15:04 on branch trunk — {ycl chan} {convert to {ycl coro call}} (user: pooryorick size: 454)

#! /bin/env tclsh

variable doc {
	A channel plugin that yields from the current coroutine to wait for the
	channel to reach the desired state to perform some channel operation.
}

proc gets {_ args} {
	namespace upvar $_ chan chan
	::tailcall ::coroutine::util gets $chan {*}$args
}
[namespace current] .method gets

proc read {_ args} {
	namespace upvar $_ chan chan
	::tailcall ::coroutine::util read $chan {*}$args
}
[namespace current] .method read