diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-10-23 21:52:56 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-10-23 21:52:56 (GMT) |
| commit | 8ceba044853804c9710cd28a34999bde36368db9 (patch) | |
| tree | 973de2353dec691c31f3af550684f7ddccdf6c12 /generic/tclBasic.c | |
| parent | 07c7107940a7846e7eb6636927feb79f31e94659 (diff) | |
| parent | fb0fd528e967d229029a88b65bc2dbfce95d84f9 (diff) | |
| download | tcl-8ceba044853804c9710cd28a34999bde36368db9.zip tcl-8ceba044853804c9710cd28a34999bde36368db9.tar.gz tcl-8ceba044853804c9710cd28a34999bde36368db9.tar.bz2 | |
merge trunktip_318_update
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 7c08f2f..3848d5b 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -9028,7 +9028,6 @@ TclNRCoroutineObjCmd( corPtr->running.lineLABCPtr = corPtr->lineLABCPtr; corPtr->stackLevel = NULL; corPtr->auxNumLevels = 0; - iPtr->numLevels--; /* * Create the coro's execEnv, switch to it to push the exit and coro @@ -9047,16 +9046,17 @@ TclNRCoroutineObjCmd( TclNRAddCallback(interp, NRCoroutineExitCallback, corPtr, NULL, NULL, NULL); + /* insure that the command is looked up in the correct namespace */ iPtr->lookupNsPtr = lookupNsPtr; Tcl_NREvalObj(interp, Tcl_NewListObj(objc-2, objv+2), 0); + iPtr->numLevels--; SAVE_CONTEXT(corPtr->running); RESTORE_CONTEXT(corPtr->caller); iPtr->execEnvPtr = corPtr->callerEEPtr; /* - * Now just resume the coroutine. Take care to insure that the command is - * looked up in the correct namespace. + * Now just resume the coroutine. */ TclNRAddCallback(interp, NRCoroutineActivateCallback, corPtr, |