json dict2json

Posted to tcl by Bradipo at Wed Sep 22 18:34:38 GMT 2021view raw

% set prop [dict create a string b 1]; set thing [dict create x another y $prop]
% json::dict2json $thing
{"x": another
,"y": a string b 1
}