From c24dc84381e5c314dcc504c91037d61522fee5b9 Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Tue, 15 Sep 2009 13:22:05 +0000
Subject: replace Tcl_Eval() with Tcl_EvalFile()

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

diff --git a/tcl_loader.cxx b/tcl_loader.cxx
index 5358ff5..2dad0d1 100644
--- a/tcl_loader.cxx
+++ b/tcl_loader.cxx
@@ -47,10 +47,8 @@ gotone:
     strncat(filename, nameptr, MAXPDSTRING-strlen(filename));
     filename[MAXPDSTRING-1] = 0;
 
-    // load tcl:
-    char b[MAXPDSTRING+10];
-    snprintf(&b[0], MAXPDSTRING+10, "source %s", filename);
-    int result = Tcl_Eval(tcl_for_pd, b);
+    // load tcl external:
+    int result = Tcl_EvalFile(tcl_for_pd, filename);
     if(result == TCL_OK) {
         post("Tcl loader: loaded %s", filename);
     } else {
-- 
cgit v1.2.1