diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-01 09:31:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-01 09:31:37 (GMT) |
| commit | b89c01475a4aa977cfa56b2292504c60de9a7427 (patch) | |
| tree | 4a2fd384cf9bd128a79d1713e710adeb4174a647 /generic/tclOODefineCmds.c | |
| parent | 8f2b15e6db98e069f1a7296f7c96da79b5515aad (diff) | |
| parent | b924d89e299f95beaf3c6bd1ae4adf16aa3c38d4 (diff) | |
| download | tcl-b89c01475a4aa977cfa56b2292504c60de9a7427.zip tcl-b89c01475a4aa977cfa56b2292504c60de9a7427.tar.gz tcl-b89c01475a4aa977cfa56b2292504c60de9a7427.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclOODefineCmds.c')
| -rw-r--r-- | generic/tclOODefineCmds.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclOODefineCmds.c b/generic/tclOODefineCmds.c index 6a00018..fb16007 100644 --- a/generic/tclOODefineCmds.c +++ b/generic/tclOODefineCmds.c @@ -1244,7 +1244,7 @@ TclOODefineSelfObjCmd( { Tcl_Namespace *nsPtr; Object *oPtr; - int result, private; + int result, isPrivate; oPtr = (Object *) TclOOGetDefineCmdContext(interp); if (oPtr == NULL) { @@ -1256,7 +1256,7 @@ TclOODefineSelfObjCmd( return TCL_OK; } - private = IsPrivateDefine(interp); + isPrivate = IsPrivateDefine(interp); /* * Make the oo::objdefine namespace the current namespace and evaluate the @@ -1267,7 +1267,7 @@ TclOODefineSelfObjCmd( if (InitDefineContext(interp, nsPtr, oPtr, objc, objv) != TCL_OK) { return TCL_ERROR; } - if (private) { + if (isPrivate) { ((Interp *) interp)->varFramePtr->isProcCallFrame = PRIVATE_FRAME; } |