Posted to tcl by venks at Tue Mar 31 23:16:16 GMT 2009view raw
- This is on cvs-head as of 4:00 PM Mar. 31, 2009 PDT. The first example
- aborts. Changing the name of the coroutine from "::y::run" to "run"
- makes it pass.
- > cat a.tcl
- puts [info patchlevel]
- set interp [interp create x]
- $interp eval {
- namespace eval ::y {}
- proc ::y::start {} {yield; puts hello}
- }
- $interp alias ::bgerror ::bgerror
- $interp eval [list coroutine ::y::run ::y::start]
- interp delete $interp
- > tclsh8.6 a.tcl
- 8.6b1.1
- Argument location tracking table not empty
- Abort
- > sed -e s/::y::run/run/ < a.tcl > b.tcl
- > tclsh8.6 b.tcl
- 8.6b1.1
- >