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"