From 8935f278f8de0689116271d84c965961e9971e5e Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Sun, 2 Oct 2011 22:22:02 +0000
Subject: cleanup misleading comments

svn path=/trunk/externals/loaders/tclpd/; revision=15463
---
 tcl.i   | 6 ------
 tclpd.c | 4 ----
 2 files changed, 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;
-- 
cgit v1.2.1