summaryrefslogtreecommitdiffstats
path: root/generic/tclInt.h
diff options
context:
space:
mode:
authortwylite <twylite@crypt.co.za>2012-08-08 15:28:09 (GMT)
committertwylite <twylite@crypt.co.za>2012-08-08 15:28:09 (GMT)
commit540f62b18de23e912d85b8b0fe9ea4f35dda0d2b (patch)
treebfaea5c03c7fc848c1e05747d300c89b91112b05 /generic/tclInt.h
parent79878e7af5ae502d353130a4cca867147152bfc2 (diff)
downloadtcl-540f62b18de23e912d85b8b0fe9ea4f35dda0d2b.zip
tcl-540f62b18de23e912d85b8b0fe9ea4f35dda0d2b.tar.gz
tcl-540f62b18de23e912d85b8b0fe9ea4f35dda0d2b.tar.bz2
Back-out 'foreacha' implementation but leave code cleanup of 'mapeach' and 'dict map'.
Diffstat (limited to 'generic/tclInt.h')
-rw-r--r--generic/tclInt.h10
1 files changed, 0 insertions, 10 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h
index 6600dd9..4fc265f 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -2773,7 +2773,6 @@ MODULE_SCOPE Tcl_ObjCmdProc TclNRCatchObjCmd;
MODULE_SCOPE Tcl_ObjCmdProc TclNRExprObjCmd;
MODULE_SCOPE Tcl_ObjCmdProc TclNRForObjCmd;
MODULE_SCOPE Tcl_ObjCmdProc TclNRForeachCmd;
-MODULE_SCOPE Tcl_ObjCmdProc TclNRForeachaCmd;
MODULE_SCOPE Tcl_ObjCmdProc TclNRIfObjCmd;
MODULE_SCOPE Tcl_ObjCmdProc TclNRMapeachCmd;
MODULE_SCOPE Tcl_ObjCmdProc TclNRSourceObjCmd;
@@ -2865,9 +2864,6 @@ struct Tcl_LoadHandle_ {
#define TCL_EACH_COLLECT 1
/* Collect iteration result like [mapeach] */
-#define TCL_EACH_ACCUM 2
- /* First loop var is accumulator like [foreacha] */
-
/*
*----------------------------------------------------------------
@@ -3314,9 +3310,6 @@ MODULE_SCOPE int Tcl_ForObjCmd(ClientData clientData,
MODULE_SCOPE int Tcl_ForeachObjCmd(ClientData clientData,
Tcl_Interp *interp, int objc,
Tcl_Obj *const objv[]);
-MODULE_SCOPE int Tcl_ForeachaObjCmd(ClientData clientData,
- Tcl_Interp *interp, int objc,
- Tcl_Obj *const objv[]);
MODULE_SCOPE int Tcl_FormatObjCmd(ClientData dummy,
Tcl_Interp *interp, int objc,
Tcl_Obj *const objv[]);
@@ -3549,9 +3542,6 @@ MODULE_SCOPE int TclCompileForCmd(Tcl_Interp *interp,
MODULE_SCOPE int TclCompileForeachCmd(Tcl_Interp *interp,
Tcl_Parse *parsePtr, Command *cmdPtr,
struct CompileEnv *envPtr);
-MODULE_SCOPE int TclCompileForeachaCmd(Tcl_Interp *interp,
- Tcl_Parse *parsePtr, Command *cmdPtr,
- struct CompileEnv *envPtr);
MODULE_SCOPE int TclCompileGlobalCmd(Tcl_Interp *interp,
Tcl_Parse *parsePtr, Command *cmdPtr,
struct CompileEnv *envPtr);