diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-17 22:28:38 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-17 22:28:38 (GMT) |
| commit | 729687600b66c16b05f8b800209bf0252c285bac (patch) | |
| tree | 6046e84e87a076d9ed6ca1edf226832ffa7bd073 /generic/tclZlib.c | |
| parent | 5183004618b076623516cc260ae3e9e283252186 (diff) | |
| download | tcl-729687600b66c16b05f8b800209bf0252c285bac.zip tcl-729687600b66c16b05f8b800209bf0252c285bac.tar.gz tcl-729687600b66c16b05f8b800209bf0252c285bac.tar.bz2 | |
Convert Tcl_Eval and Tcl_GlobalEval to a macro
Diffstat (limited to 'generic/tclZlib.c')
| -rw-r--r-- | generic/tclZlib.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclZlib.c b/generic/tclZlib.c index e2cb3ea..ea3b9cc 100644 --- a/generic/tclZlib.c +++ b/generic/tclZlib.c @@ -763,7 +763,7 @@ Tcl_ZlibStreamInit( */ if (interp != NULL) { - if (Tcl_Eval(interp, "::incr ::tcl::zlib::cmdcounter") != TCL_OK) { + if (Tcl_EvalEx(interp, "::incr ::tcl::zlib::cmdcounter", -1, 0) != TCL_OK) { goto error; } Tcl_DStringInit(&cmdname); @@ -3847,7 +3847,7 @@ TclZlibInit( * commands. */ - Tcl_Eval(interp, "namespace eval ::tcl::zlib {variable cmdcounter 0}"); + Tcl_EvalEx(interp, "namespace eval ::tcl::zlib {variable cmdcounter 0}", -1, 0); /* * Create the public scripted interface to this file's functionality. |