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

  1. set ::tcl_traceCompile 2
  2. test assemble-4.2 {eval} {
  3. -body {
  4. ::tcl::unsupported::assemble {
  5. {push 3}
  6. {store n}
  7. pop
  8. {eval {expr {3*$n + 1}}}
  9. }
  10. }
  11. -result 10
  12. }
  13. set ::tcl_traceCompile 0