|
Here's the 'head' of what's dumped.
Thanks In Advance for any
help,
John
ns:
proc warn msg { global warned_ if ![info exists warned_($msg)] { puts stderr $msg set warned($msg) 1 } } if {[info commands debug] == ""}
{
proc debug args { warn {Script debugging disabled. Reconfigure with --with-tcldebug, and recompile.} } } proc find-max list {
set max 0 foreach val $list { if {$val > $max} { set max $val } } return $max } |