diff options
author | Steve Bennett <steveb@workware.net.au> | 2016-11-14 12:22:02 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2016-11-14 12:22:49 +1000 |
commit | 0b876772e28fd3d0a4ce64da465aa69aa95036f5 (patch) | |
tree | ae16dd551e8cbe17cc4df8595671eeca0feca496 /stdlib.tcl | |
parent | 7d5a6e3b6f19a5c9260c131f428711320da452a0 (diff) | |
download | jimtcl-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.tcl | 5 |
1 files changed, 0 insertions, 5 deletions
@@ -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} { |