diff options
| author | mescalinum <mescalinum@users.sourceforge.net> | 2011-11-14 16:19:57 +0000 |
|---|---|---|
| committer | mescalinum <mescalinum@users.sourceforge.net> | 2011-11-14 16:19:57 +0000 |
| commit | 79ad58a64786e88e51edf300b881e41d61bf4595 (patch) | |
| tree | ef3eef60770bec0082e352449e017729220a6b6a /examples/list_change.tcl | |
| parent | 206b7ecc625b573514c6658309e8f6bc15e4110f (diff) | |
use eq/ne in place of ==/!= for string (in)equelity checks
svn path=/trunk/externals/loaders/tclpd/; revision=15745
Diffstat (limited to 'examples/list_change.tcl')
| -rw-r--r-- | examples/list_change.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/examples/list_change.tcl b/examples/list_change.tcl index 82c751d..307e629 100644 --- a/examples/list_change.tcl +++ b/examples/list_change.tcl @@ -13,14 +13,14 @@ proc+ list_change::constructor {self args} { proc+ list_change::0_list {self args} { # HOT inlet - if {$args != $@curlist} { + if {$args ne $@curlist} { set @curlist $args pd::outlet $self 0 list $@curlist } } proc+ list_change::0_bang {self} { - if {$@curlist == {}} return + if {$@curlist eq {}} return pd::outlet $self 0 list $@curlist } |