add tclpd-interp-info and fix an error

svn path=/trunk/externals/loaders/tclpd/; revision=15601

1 files changed, 0 insertions, 2 deletions

diff --git a/pdlib.tcl b/pdlib.tcl
index faf3f5a..777162d 100644
--- a/pdlib.tcl
+++ b/pdlib.tcl
@@ -129,8 +129,6 @@ namespace eval ::pd {
         "
 
 	# some dummy function to suppress eventual errors if they are not deifned:
-	proc ::${classname}::constructor {self args} {}
-	proc ::${classname}::destructor {self} {}
 	proc ::${classname}::0_loadbang {self} {}
         proc ::${classname}::save {self args} {return ""}