Posted to tcl by de at Sat Jan 28 00:46:59 GMT 2017view pretty

proc aset {var key value} {
    upvar 1 $var array
    set array($key) $value
}

proc dset {var key value} {
    upvar 1 $var dict
    dict set dict $key $value 
}

array set a {}
aset a b c
puts $a(b)

set one [dict create]
dset one two three
puts [dict get $one two]