Posted to tcl by apn at Fri Mar 25 10:05:49 GMT 2022view pretty

% coroutine mycoro apply {{} { while {1} {puts "coro called" ; yield} }}
coro called
% mycoro
coro called
% tcl::unsupported::inject mycoro error "Something horrible happened"
% mycoro
Something horrible happened
% mycoro
invalid command name "mycoro"