From 8dd16881e82ee2b655049367968ebd8d28d1d9cc Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Sat, 12 Nov 2011 05:17:18 +0000 Subject: use the new log levels for clearer logging svn path=/trunk/externals/loaders/tclpd/; revision=15729 --- tcl_loader.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'tcl_loader.c') diff --git a/tcl_loader.c b/tcl_loader.c index 5167cec..9ff6723 100644 --- a/tcl_loader.c +++ b/tcl_loader.c @@ -60,9 +60,9 @@ gotone: result = Tcl_EvalFile(tcl_for_pd, filename); if(result == TCL_OK) { source_table_add(objectname, filename); - post("Tcl loader: loaded %s", filename); + verbose(0, "Tcl loader: loaded %s", filename); } else { - post("Tcl loader: error trying to load %s", filename); + error("Tcl loader: error trying to load %s", filename); tclpd_interp_error(NULL, result); return 0; } @@ -74,7 +74,7 @@ gotone: result = Tcl_Eval(tcl_for_pd, cmd); if(result == TCL_OK) { } else { - post("Tcl loader: error in %s %s::setup", filename, classname); + error("Tcl loader: error in %s %s::setup", filename, classname); tclpd_interp_error(NULL, result); return 0; } -- cgit v1.2.1