Posted to tcl by kbk at Thu Sep 23 00:30:17 GMT 2010view pretty

set ::tcl_traceCompile 2
tcl::unsupported::assemble {
    # puts "n = [expr {2 + 2}]"
    push puts;			# stack = puts
    push {n = };		# stack = puts {n = }
    push 2;			# stack = puts {n = } 2
    push 2;			# stack = puts {n = } 2 2
    add;			# stack = puts {n = } 4
    concat 2;			# stack = puts {n = 4}
    invokeStk;			# stack = (empty result of puts)
    pop;			# discard empty result
}