diff options
Diffstat (limited to 'generic/tclCmdAH.c')
| -rw-r--r-- | generic/tclCmdAH.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index 73ef295..f31eabc 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -2830,7 +2830,7 @@ EachloopCmd( goto done; } /* Don't compute values here, wait until the last momement */ - statePtr->argcList[i] = Tcl_ArithSeriesObjLength(statePtr->vCopyList[i]); + statePtr->argcList[i] = TclArithSeriesObjLength(statePtr->vCopyList[i]); } else { /* List values */ statePtr->aCopyList[i] = TclListObjCopy(interp, objv[2+i*2]); @@ -2969,7 +2969,7 @@ ForeachAssignments( if (k < statePtr->argcList[i]) { if (isarithseries) { Tcl_WideInt value; - if (Tcl_ArithSeriesObjIndex(statePtr->vCopyList[i], k, &value) != TCL_OK) { + if (TclArithSeriesObjIndex(statePtr->vCopyList[i], k, &value) != TCL_OK) { Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf( "\n (setting %s loop variable \"%s\")", (statePtr->resultList != NULL ? "lmap" : "foreach"), |