aboutsummaryrefslogtreecommitdiff
path: root/stdlib.tcl
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2014-01-12 19:50:19 +1000
committerSteve Bennett <steveb@workware.net.au>2016-09-28 10:54:03 +1000
commit2797cc7ae1710b35db4f9c61987a2d82436afac2 (patch)
treef6d8bae7a58d7ba1cbbb047c4ac4052a456cd3ae /stdlib.tcl
parent2a6f4740ff77daccffc2091d0e1815a8e4fc5597 (diff)
downloadjimtcl-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.tcl13
1 files changed, 0 insertions, 13 deletions
diff --git a/stdlib.tcl b/stdlib.tcl
index 08cb217..917b0b6 100644
--- a/stdlib.tcl
+++ b/stdlib.tcl
@@ -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}