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

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