11 lines
142 B
Plaintext
11 lines
142 B
Plaintext
|
|
||
|
proc {dict merge} {dict args} {
|
||
|
foreach d $args {
|
||
|
foreach k [dict keys $d] {
|
||
|
dict set dict $k [dict get $d $k]
|
||
|
}
|
||
|
}
|
||
|
return $dict
|
||
|
}
|
||
|
|