Posted to tcl by colin at Fri May 28 03:16:29 GMT 2010view pretty
proc bottomp {y} {
after 0 top 1
yield
}
proc topp {x} {
coroutine bottom bottomp 2
after 0 bottom 3
yield
}
coroutine top topp 1
set done 0
vwait done
proc bottomp {y} {
after 0 top 1
yield
}
proc topp {x} {
coroutine bottom bottomp 2
after 0 bottom 3
yield
}
coroutine top topp 1
set done 0
vwait done