From 8b65741620bae448b96eb8ce59b85a7b1bb36c44 Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Sat, 29 Aug 2009 17:07:13 +0000
Subject: tidy up!

svn path=/trunk/externals/tclpd/; revision=12133
---
 tcl_loader.cxx | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'tcl_loader.cxx')

diff --git a/tcl_loader.cxx b/tcl_loader.cxx
index fececed..e7f22ff 100644
--- a/tcl_loader.cxx
+++ b/tcl_loader.cxx
@@ -2,8 +2,10 @@
 #include <string.h>
 #include <unistd.h>
 
-extern "C" int tclpd_do_load_lib(t_canvas *canvas, char *objectname)
-{
+extern "C" int tclpd_do_load_lib(t_canvas *canvas, char *objectname) {
+#ifdef DEBUG
+    post("Tcl loader: registering tcl class loader mechanism");
+#endif
     char filename[MAXPDSTRING], dirbuf[MAXPDSTRING],
         *classname, *nameptr;
     int fd;
-- 
cgit v1.2.1