diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2009-12-08 23:04:54 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2009-12-08 23:04:54 (GMT) |
| commit | efa921be53b01dc7f914a3fd6386749d503378d7 (patch) | |
| tree | 0ae2bc23754583420f3a88b4e4ee60351e9702d3 /generic | |
| parent | 241690109568a5350f8d8c672078b281fc19413b (diff) | |
| download | tcl-efa921be53b01dc7f914a3fd6386749d503378d7.zip tcl-efa921be53b01dc7f914a3fd6386749d503378d7.tar.gz tcl-efa921be53b01dc7f914a3fd6386749d503378d7.tar.bz2 | |
added comment confessing my puzzlement
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclBasic.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 5f30f0d..a0e7b71 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -16,7 +16,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBasic.c,v 1.420 2009/12/08 22:58:11 msofer Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.421 2009/12/08 23:04:54 msofer Exp $ */ #include "tclInt.h" @@ -8914,6 +8914,13 @@ TclNRCoroutineObjCmd( iPtr->evalFlags |= TCL_EVAL_REDIRECT; TclNREvalObjEx(interp, cmdObjPtr, 0, NULL, 0); + /* + * This should just be returning TCL_OK, to let the coro run in the + * caller's TEBC instance if available. BUT this causes an error in + * TclStackFree, couldn't yet find why. It is a bit of a mistery. + * msofer, 2009-12-08 + */ + return TclNRRunCallbacks(interp, TCL_OK, rootPtr, 0); } |