Posted to tcl by mjanssen at Fri May 08 14:46:51 GMT 2009view raw
- % proc f x {puts [info globals x*] ; upvar #0 [lindex $x 0] local ; if {![info exists local]} {set local "" ; puts "set to default"}}
- (bin) 58 % f x1
- x1 x2
- (bin) 59 % f x2
- x1 x2
- (bin) 60 % f x3
- x1 x2
- set to default
- (bin) 61 % f x4
- x1 x2 x3