Posted to tcl by dkf at Thu Oct 25 12:44:11 GMT 2012view pretty

% tcl::unsupported::disassemble script {namespace code foo}
ByteCode 0x0xa7110, refCt 1, epoch 5, interp 0x0x2dc10 (epoch 5)
  Source "namespace code foo"
  Cmds 1, src 18, inst 13, litObjs 3, aux 0, stkDepth 4, code/src 0.00
  Commands 1:
      1: pc 0-11, src 0-17
  Command 1: "namespace code foo"
    (0) push1 0 	# "::namespace"
    (2) push1 1 	# "inscope"
    (4) nscurrent 
    (5) push1 2 	# "foo"
    (7) list 4 
    (12) done