diff options
| author | ferrieux <ferrieux@users.sourceforge.net> | 2014-08-01 16:34:11 (GMT) |
|---|---|---|
| committer | ferrieux <ferrieux@users.sourceforge.net> | 2014-08-01 16:34:11 (GMT) |
| commit | 28c803e0587a6f34716420ed9a3e63dea93b2255 (patch) | |
| tree | b111aed5eb37ab357fc42b097745869da90c996a /generic/tclInt.h | |
| parent | 5d6c006a2ce1195737c5d8ce05d7b53e41389005 (diff) | |
| download | tcl-tip429_only_id.zip tcl-tip429_only_id.tar.gz tcl-tip429_only_id.tar.bz2 | |
Recognize that "id" is the K combinator in disguise. Rename it as "K" and extend its semantics accordingly.tip429_only_id
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 119b22e..872761e 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -3294,9 +3294,6 @@ MODULE_SCOPE int Tcl_GlobalObjCmd(ClientData clientData, MODULE_SCOPE int Tcl_GlobObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int Tcl_IdObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); MODULE_SCOPE int Tcl_IfObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); @@ -3310,6 +3307,9 @@ MODULE_SCOPE int Tcl_InterpObjCmd(ClientData clientData, MODULE_SCOPE int Tcl_JoinObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); +MODULE_SCOPE int Tcl_KObjCmd(ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *const objv[]); MODULE_SCOPE int Tcl_LappendObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); @@ -3547,9 +3547,6 @@ MODULE_SCOPE int TclCompileFormatCmd(Tcl_Interp *interp, MODULE_SCOPE int TclCompileGlobalCmd(Tcl_Interp *interp, Tcl_Parse *parsePtr, Command *cmdPtr, struct CompileEnv *envPtr); -MODULE_SCOPE int TclCompileIdCmd(Tcl_Interp *interp, - Tcl_Parse *parsePtr, Command *cmdPtr, - struct CompileEnv *envPtr); MODULE_SCOPE int TclCompileIfCmd(Tcl_Interp *interp, Tcl_Parse *parsePtr, Command *cmdPtr, struct CompileEnv *envPtr); @@ -3577,6 +3574,9 @@ MODULE_SCOPE int TclCompileInfoObjectNamespaceCmd(Tcl_Interp *interp, MODULE_SCOPE int TclCompileIncrCmd(Tcl_Interp *interp, Tcl_Parse *parsePtr, Command *cmdPtr, struct CompileEnv *envPtr); +MODULE_SCOPE int TclCompileKCmd(Tcl_Interp *interp, + Tcl_Parse *parsePtr, Command *cmdPtr, + struct CompileEnv *envPtr); MODULE_SCOPE int TclCompileLappendCmd(Tcl_Interp *interp, Tcl_Parse *parsePtr, Command *cmdPtr, struct CompileEnv *envPtr); |