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/dynreceive.tcl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'examples/dynreceive.tcl')

diff --git a/examples/dynreceive.tcl b/examples/dynreceive.tcl
index ceef7a8..f065e77 100644
--- a/examples/dynreceive.tcl
+++ b/examples/dynreceive.tcl
@@ -13,7 +13,7 @@ proc+ dynreceive::constructor {self args} {
 proc+ dynreceive::destructor {self} {
     # don't forget to call pd_unbind, or sending things to a symbol
     # bound to dead object will crash pd!
-    if {$@sym != {}} {
+    if {$@sym ne {}} {
         pd_unbind $self $@sym
     }
 }
@@ -21,10 +21,10 @@ proc+ dynreceive::destructor {self} {
 proc+ dynreceive::0_set {self args} {
     # send [set empty( to clear the receive symbol
     set s [pd::arg 0 symbol]
-    if {$@sym != {}} {
+    if {$@sym eq {}} {
         pd_unbind $self $@sym
     }
-    if {$s == {empty}} {
+    if {$s eq {empty}} {
         set @sym {}
     } else {
         set @sym $s
-- 
cgit v1.2.1