Added some more list-based commands.
Added upvar (alias to caller's variables), uplevel (execute code in caller's scope). (or your caller's caller, or...)
Also added a non-standard "inline" command so you can do:
oolong:~/research/parrot/languages/tcl/examples coke$ cat inline.tcl inline PIR {
.sub junk
$P0 = new String
$P0 = "nifty"
store_lex 0, "a", $P0
.end
}
puts $a
oolong:~/research/parrot/languages/tcl/examples coke$ make inline cd ../../../ && ./parrot languages/tcl/tcl.pbc languages/tcl/examples/inline.tcl
nifty
Volunteers welcome. =-)