diff options
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 } |