Horrid abuse of scope

Posted to tcl by bairui at Fri Feb 01 00:31:12 GMT 2019view raw

proc as_dict {query} {
uplevel 1 db eval [list $query res {
lappend results [dict remove [array get res] *]
}]
return [uplevel set results]
}