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/tclBasic.c | |
| 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/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index edf127d..38c0de3 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -221,10 +221,10 @@ static const CmdInfo builtInCmds[] = { {"foreach", Tcl_ForeachObjCmd, TclCompileForeachCmd, TclNRForeachCmd, CMD_IS_SAFE}, {"format", Tcl_FormatObjCmd, TclCompileFormatCmd, NULL, CMD_IS_SAFE}, {"global", Tcl_GlobalObjCmd, TclCompileGlobalCmd, NULL, CMD_IS_SAFE}, - {"id", Tcl_IdObjCmd, TclCompileIdCmd, NULL, CMD_IS_SAFE}, {"if", Tcl_IfObjCmd, TclCompileIfCmd, TclNRIfObjCmd, CMD_IS_SAFE}, {"incr", Tcl_IncrObjCmd, TclCompileIncrCmd, NULL, CMD_IS_SAFE}, {"join", Tcl_JoinObjCmd, NULL, NULL, CMD_IS_SAFE}, + {"K", Tcl_KObjCmd, TclCompileKCmd, NULL, CMD_IS_SAFE}, {"lappend", Tcl_LappendObjCmd, TclCompileLappendCmd, NULL, CMD_IS_SAFE}, {"lassign", Tcl_LassignObjCmd, TclCompileLassignCmd, NULL, CMD_IS_SAFE}, {"lindex", Tcl_LindexObjCmd, TclCompileLindexCmd, NULL, CMD_IS_SAFE}, |