diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2009-12-05 21:30:05 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2009-12-05 21:30:05 (GMT) |
| commit | 90bd6886192a7f8aba161a9c45eb000b9e59e69c (patch) | |
| tree | 364580df13345c4b42788e63d9c681325eb910a9 /generic/tclInterp.c | |
| parent | 2aa99d284d6f4194676a3e2f5aac6ad2197a7714 (diff) | |
| download | tcl-90bd6886192a7f8aba161a9c45eb000b9e59e69c.zip tcl-90bd6886192a7f8aba161a9c45eb000b9e59e69c.tar.gz tcl-90bd6886192a7f8aba161a9c45eb000b9e59e69c.tar.bz2 | |
* generic/tclBasic.c: Fixed things so that you can tailcall
* generic/tclNamesp.c: properly out of a coroutine.
* tests/tailcall.test:
* generic/tclInterp.c: Fixed tailcalls for same-interp aliases (no
test)
Diffstat (limited to 'generic/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 3c841d9..edf31ff 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInterp.c,v 1.106 2009/10/06 16:55:59 dgp Exp $ + * RCS: @(#) $Id: tclInterp.c,v 1.107 2009/12/05 21:30:05 msofer Exp $ */ #include "tclInt.h" @@ -1805,7 +1805,7 @@ AliasNRCmd( */ if (isRootEnsemble) { - TclNRAddCallback(interp, TclClearRootEnsemble, NULL, NULL, NULL, NULL); + TclNRDeferCallback(interp, TclClearRootEnsemble, NULL, NULL, NULL, NULL); } iPtr->evalFlags |= TCL_EVAL_REDIRECT; return Tcl_NREvalObj(interp, listPtr, flags); |