Posted to tcl by aspect at Mon Jan 20 22:52:20 GMT 2020view pretty

#!/usr/bin/env tclsh
#

interp create ztmp
ztmp recursionlimit 10

set script [read [open [info script]]]
regsub {.*-{10}} $script {} script

ztmp eval $script

puts "eval finished"

exit
# ----------

puts "in ztmp"