2 proc manyset {list args} {
3 foreach val $list var $args {
14 # debug::setup ON-DEBUG
15 # which will result in calls to [concat ON-DEBUG [list MESSAGE]]
16 # (or ON-DEBUG may be "" in which case messages are discarded)
25 if {![llength $debug]} return
26 set ns [uplevel 1 namespace current]
27 uplevel #0 $debug [list "DEBUG $ns $m"]