From 79ad58a64786e88e51edf300b881e41d61bf4595 Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Mon, 14 Nov 2011 16:19:57 +0000
Subject: use eq/ne in place of ==/!= for string (in)equelity checks

svn path=/trunk/externals/loaders/tclpd/; revision=15745
---
 examples/list_change.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'examples/list_change.tcl')

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
 }
 
-- 
cgit v1.2.1