aboutsummaryrefslogtreecommitdiff
path: root/stdlib.tcl
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2016-11-14 12:22:02 +1000
committerSteve Bennett <steveb@workware.net.au>2016-11-14 12:22:49 +1000
commit0b876772e28fd3d0a4ce64da465aa69aa95036f5 (patch)
treeae16dd551e8cbe17cc4df8595671eeca0feca496 /stdlib.tcl
parent7d5a6e3b6f19a5c9260c131f428711320da452a0 (diff)
downloadjimtcl-0b876772e28fd3d0a4ce64da465aa69aa95036f5.zip
jimtcl-0b876772e28fd3d0a4ce64da465aa69aa95036f5.tar.gz
jimtcl-0b876772e28fd3d0a4ce64da465aa69aa95036f5.tar.bz2
dict: Fix [dict values] with duplicate values
The script implementation of dict values was not correctly handling the case where a dictionary had duplicate values. Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'stdlib.tcl')
-rw-r--r--stdlib.tcl5
1 files changed, 0 insertions, 5 deletions
diff --git a/stdlib.tcl b/stdlib.tcl
index aef6983..9cffb93 100644
--- a/stdlib.tcl
+++ b/stdlib.tcl
@@ -154,11 +154,6 @@ proc {dict remove} {dictionary {args key}} {
return $dictionary
}
-# Script-based implementation of 'dict values'
-proc {dict values} {dictionary {pattern *}} {
- dict keys [lreverse $dictionary] $pattern
-}
-
# Script-based implementation of 'dict for'
proc {dict for} {vars dictionary script} {
if {[llength $vars] != 2} {