use pd::post instead of puts.

namespace eval is not needed (done internally by tclpd before load).
don't use return in global scope.

svn path=/trunk/externals/tclfile/; revision=15717

1 files changed, 6 insertions, 10 deletions

diff --git a/mkdir.tcl b/mkdir.tcl
index 9201a28..90b1641 100644
--- a/mkdir.tcl
+++ b/mkdir.tcl
@@ -1,11 +1,7 @@
 package require Tclpd 0.2.3
 package require TclpdLib 0.19
 
-puts stderr "Loading mkdir.tcl"
-
-if {[namespace exists mkdir]} {return}
-namespace eval mkdir {
-}
+pd::post "Loading mkdir.tcl"
 
 proc+ mkdir::constructor {self args} {
     # add outlet
@@ -14,22 +10,22 @@ proc+ mkdir::constructor {self args} {
 
 # HOT inlet
 proc+ mkdir::0_list {self args} {
-    puts stderr "tclfile/mkdir: list"
+    pd::post "tclfile/mkdir: list"
     #pd::outlet $self 0 list $@curlist
 }
 
 # HOT inlet
 proc+ mkdir::0_symbol {self args} {
-    puts stderr "tclfile/mkdir: symbol"
+    pd::post "tclfile/mkdir: symbol"
 #    pd::outlet $self 0 list $@curlist
 }
 
 proc+ mkdir::0_bang {self} {
-    puts stderr "tclfile/mkdir: bang"
+    pd::post "tclfile/mkdir: bang"
 #    pd::outlet $self 0 list $@curlist
 }
 
-puts stderr "pd::class mkdir"
+pd::post "pd::class mkdir"
 pd::class mkdir
 
-puts stderr "Finished reading mkdir.tcl"
+pd::post "Finished reading mkdir.tcl"