cleanup misleading comments

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

2 files changed, 0 insertions, 10 deletions

diff --git a/tcl.i b/tcl.i
index eb2296d..6a02761 100644
--- a/tcl.i
+++ b/tcl.i
@@ -45,9 +45,6 @@
     #include "tcl_extras.h"
 
     typedef t_atom t_atom_array;
-
-    /* extern "C" SWIGEXPORT int Tclpd_SafeInit(Tcl_Interp *interp); */
-    /* extern "C" { void tcl_setup() {tclpd_setup(void);} } */
 %}
 
 /* this does the trick of solving
@@ -55,9 +52,6 @@
 %name(outlet_list) EXTERN void outlet_list(t_outlet *x, t_symbol *s, int argc, t_atom_array *argv);
 %name(outlet_anything) EXTERN void outlet_anything(t_outlet *x, t_symbol *s, int argc, t_atom_array *argv);
 
-//%pointer_class(t_float, t_float)
-//%pointer_class(t_symbol, t_symbol)
-
 %typemap(in) t_atom * {
     t_atom *a = (t_atom*)getbytes(sizeof(t_atom));
     if(tcl_to_pd($input, a) == TCL_ERROR) {
diff --git a/tclpd.c b/tclpd.c
index 72ffa90..c888101 100644
--- a/tclpd.c
+++ b/tclpd.c
@@ -5,10 +5,6 @@
 
 Tcl_Interp *tcl_for_pd = NULL;
 
-extern void tcl_setup(void) {
-    tclpd_setup();
-}
-
 void tclpd_setup(void) {
     if(tcl_for_pd) {
         return;