diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/language.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/language.tcl b/lib/language.tcl index 2977933d..bb42a800 100644 --- a/lib/language.tcl +++ b/lib/language.tcl @@ -18,13 +18,14 @@ proc unknown {name args} { } namespace eval dictset { - namespace export create add union difference entries size + namespace export create add remove union difference entries size proc create {args} { set kvs [list] foreach k $args { lappend kvs $k true } dict create {*}$kvs } proc add {sv entry} { upvar $sv s; dict set s $entry true } + proc remove {sv entry} { upvar $sv s; dict unset s $entry } proc union {s t} { dict merge $s $t } proc difference {s t} { |