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

  1. % coroutine mycoro apply {{} { while {1} {puts "coro called" ; yield} }}
  2. coro called
  3. % mycoro
  4. coro called
  5. % tcl::unsupported::inject mycoro error "Something horrible happened"
  6. % mycoro
  7. Something horrible happened
  8. % mycoro
  9. invalid command name "mycoro"