diff options
| author | mescalinum <mescalinum@users.sourceforge.net> | 2009-09-15 13:22:05 +0000 |
|---|---|---|
| committer | mescalinum <mescalinum@users.sourceforge.net> | 2009-09-15 13:22:05 +0000 |
| commit | c24dc84381e5c314dcc504c91037d61522fee5b9 (patch) | |
| tree | 4c437d0889f89ac0ea39e9be7a1ad5dffaf25768 | |
| parent | fb18dbb202dd8876debad2c9351300723625b2bc (diff) | |
replace Tcl_Eval() with Tcl_EvalFile()
svn path=/trunk/externals/tclpd/; revision=12347
| -rw-r--r-- | tcl_loader.cxx | 6 |
1 files 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 { |