diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-27 13:43:35 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-27 13:43:35 (GMT) |
| commit | 8ec9047eaf28913bc5a9025e9d0c0c19673af3f2 (patch) | |
| tree | 1f2058362b14168faa83d5b1a5b54685d87fdec8 /generic/tclCmdIL.c | |
| parent | c367d0f59e1afe8efcf0c59d40653b8517fcd03e (diff) | |
| download | tcl-8ec9047eaf28913bc5a9025e9d0c0c19673af3f2.zip tcl-8ec9047eaf28913bc5a9025e9d0c0c19673af3f2.tar.gz tcl-8ec9047eaf28913bc5a9025e9d0c0c19673af3f2.tar.bz2 | |
More progress
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 0eca1a8..5c9d1bd 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -2147,7 +2147,7 @@ InfoCmdTypeCmd( */ if (Tcl_IsSafe(interp) - && (((Command *) command)->objProc == TclAliasObjCmd)) { + && (((Command *) command)->objProc2 == TclAliasObjCmd)) { Tcl_AppendResult(interp, "native", NULL); } else { Tcl_SetObjResult(interp, |