diff options
author | Steve Bennett <steveb@workware.net.au> | 2014-01-12 19:50:19 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2016-09-28 10:54:03 +1000 |
commit | 2797cc7ae1710b35db4f9c61987a2d82436afac2 (patch) | |
tree | f6d8bae7a58d7ba1cbbb047c4ac4052a456cd3ae /stdlib.tcl | |
parent | 2a6f4740ff77daccffc2091d0e1815a8e4fc5597 (diff) | |
download | jimtcl-2797cc7ae1710b35db4f9c61987a2d82436afac2.zip jimtcl-2797cc7ae1710b35db4f9c61987a2d82436afac2.tar.gz jimtcl-2797cc7ae1710b35db4f9c61987a2d82436afac2.tar.bz2 |
jim.c: replace 'dict merge' with a C version
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'stdlib.tcl')
-rw-r--r-- | stdlib.tcl | 13 |
1 files changed, 0 insertions, 13 deletions
@@ -130,19 +130,6 @@ proc {dict update} {&varName args script} { return {*}$opts $msg } -# Script-based implementation of 'dict merge' -# This won't get called in the trivial case of no args -proc {dict merge} {dict args} { - foreach d $args { - # Check for a valid dict - dict size $d - foreach {k v} $d { - dict set dict $k $v - } - } - return $dict -} - proc {dict replace} {dictionary {args {key value}}} { if {[llength ${key value}] % 2} { tailcall {dict replace} |