diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-07 20:52:04 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-07 20:52:04 (GMT) |
| commit | bdccbf1c921b2158d107e97cc64b72ab81a05ee5 (patch) | |
| tree | d82fc26e19fbe472c50052845459ae65b489f858 /generic/tclBasic.c | |
| parent | 658859f096755310e84a60fa6af50736a713a399 (diff) | |
| parent | a9a2d671a0cbd58a5b99815c650d92c3c652a602 (diff) | |
| download | tcl-bdccbf1c921b2158d107e97cc64b72ab81a05ee5.zip tcl-bdccbf1c921b2158d107e97cc64b72ab81a05ee5.tar.gz tcl-bdccbf1c921b2158d107e97cc64b72ab81a05ee5.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 2dc8e5f..1e369a9 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -264,6 +264,12 @@ typedef struct { * The built-in commands, and the functions that implement them: */ +int procObjCmd(void *clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *const objv[]) { + return Tcl_ProcObjCmd(clientData, interp, objc, objv); +} + + static const CmdInfo builtInCmds[] = { /* * Commands in the generic core. @@ -306,7 +312,7 @@ static const CmdInfo builtInCmds[] = { {"lset", Tcl_LsetObjCmd, TclCompileLsetCmd, NULL, CMD_IS_SAFE}, {"lsort", Tcl_LsortObjCmd, NULL, NULL, CMD_IS_SAFE}, {"package", Tcl_PackageObjCmd, NULL, TclNRPackageObjCmd, CMD_IS_SAFE}, - {"proc", Tcl_ProcObjCmd, NULL, NULL, CMD_IS_SAFE}, + {"proc", procObjCmd, NULL, NULL, CMD_IS_SAFE}, {"regexp", Tcl_RegexpObjCmd, TclCompileRegexpCmd, NULL, CMD_IS_SAFE}, {"regsub", Tcl_RegsubObjCmd, TclCompileRegsubCmd, NULL, CMD_IS_SAFE}, {"rename", Tcl_RenameObjCmd, NULL, NULL, CMD_IS_SAFE}, |