summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2014-01-22 09:14:57 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2014-01-22 09:14:57 (GMT)
commit6e072443704a589149fea001df51f9870b78c323 (patch)
tree3eb442c80b103b7ad7ad72ac9d002f706064c2ee /generic
parent78a75740ae5c82cc161e49e5e28a306fa9f2a580 (diff)
downloadtcl-6e072443704a589149fea001df51f9870b78c323.zip
tcl-6e072443704a589149fea001df51f9870b78c323.tar.gz
tcl-6e072443704a589149fea001df51f9870b78c323.tar.bz2
minor tidying up
Diffstat (limited to 'generic')
-rw-r--r--generic/tclBasic.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index cb9428c..46b532b 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -8416,8 +8416,7 @@ TclNRYieldToObjCmd(
{
CoroutineData *corPtr = iPtr->execEnvPtr->corPtr;
Tcl_Obj *listPtr, *nsObjPtr;
- Tcl_Namespace *nsPtr = (Tcl_Namespace *) iPtr->varFramePtr->nsPtr;
- Tcl_Namespace *ns1Ptr;
+ Tcl_Namespace *nsPtr = TclGetCurrentNamespace(interp);
if (objc < 2) {
Tcl_WrongNumArgs(interp, 1, objv, "command ?arg ...?");
@@ -8431,7 +8430,7 @@ TclNRYieldToObjCmd(
return TCL_ERROR;
}
- if (((Namespace *) TclGetCurrentNamespace(interp))->flags & NS_DYING) {
+ if (((Namespace *) nsPtr)->flags & NS_DYING) {
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"yieldto called in deleted namespace", -1));
Tcl_SetErrorCode(interp, "TCL", "COROUTINE", "YIELDTO_IN_DELETED",