Posted to tcl by bairui at Sat Jan 25 14:17:13 GMT 2020view raw
- proc A {} {
- B salad greens
- dict lappend salad greens lettuce chicory kale arugula watercress spinach
- puts [dict get $salad greens]
- }
- proc B {var key} {
- uplevel 1 [list set $var [dict create $key {}]]
- }