Posted to tcl by kbk at Tue Sep 21 18:14:45 GMT 2010view pretty

set ::tcl_traceCompile 2
test assemble-4.2 {eval} {
    -body {
	::tcl::unsupported::assemble {
	    {push 3}
	    {store n}
	    pop
	    {eval {expr {3*$n + 1}}}
	}
    }
    -result 10
}
set ::tcl_traceCompile 0