diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-05 13:53:30 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-05 13:53:30 (GMT) |
| commit | bf332fb49405c13e2d003ac1b447bae2ac4291b4 (patch) | |
| tree | 706a211966abb603e0ca03f430d071a475021ef8 /generic/tclBasic.c | |
| parent | f9427cdbfd828dbabe79facdc3d757146c090563 (diff) | |
| download | tcl-bf332fb49405c13e2d003ac1b447bae2ac4291b4.zip tcl-bf332fb49405c13e2d003ac1b447bae2ac4291b4.tar.gz tcl-bf332fb49405c13e2d003ac1b447bae2ac4291b4.tar.bz2 | |
Added 'linsert' compiler. Factored out constant list index parser.
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 a41351e..9f40932 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -227,7 +227,7 @@ static const CmdInfo builtInCmds[] = { {"lappend", Tcl_LappendObjCmd, TclCompileLappendCmd, NULL, CMD_IS_SAFE}, {"lassign", Tcl_LassignObjCmd, TclCompileLassignCmd, NULL, CMD_IS_SAFE}, {"lindex", Tcl_LindexObjCmd, TclCompileLindexCmd, NULL, CMD_IS_SAFE}, - {"linsert", Tcl_LinsertObjCmd, NULL, NULL, CMD_IS_SAFE}, + {"linsert", Tcl_LinsertObjCmd, TclCompileLinsertCmd, NULL, CMD_IS_SAFE}, {"list", Tcl_ListObjCmd, TclCompileListCmd, NULL, CMD_IS_SAFE|CMD_COMPILES_EXPANDED}, {"llength", Tcl_LlengthObjCmd, TclCompileLlengthCmd, NULL, CMD_IS_SAFE}, {"lmap", Tcl_LmapObjCmd, TclCompileLmapCmd, TclNRLmapCmd, CMD_IS_SAFE}, |