From 0b876772e28fd3d0a4ce64da465aa69aa95036f5 Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Mon, 14 Nov 2016 12:22:02 +1000 Subject: 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 --- stdlib.tcl | 5 ----- 1 file changed, 5 deletions(-) (limited to 'stdlib.tcl') 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} { -- cgit v1.1