diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-06-28 16:31:27 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-06-28 16:31:27 (GMT) |
| commit | 3f1e1192cb2dad651a1dd3ce1518c23bb7a0da2a (patch) | |
| tree | 0d9f412cd208a2082766b1309a8ab0ebb052d740 /generic/tclCmdIL.c | |
| parent | a9aed18760696a33af72db20fc32081d7f3c1c61 (diff) | |
| parent | 73124928ba9d5134012c0c7bdfcd02dcf876d7cf (diff) | |
| download | tcl-3f1e1192cb2dad651a1dd3ce1518c23bb7a0da2a.zip tcl-3f1e1192cb2dad651a1dd3ce1518c23bb7a0da2a.tar.gz tcl-3f1e1192cb2dad651a1dd3ce1518c23bb7a0da2a.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 64cefa0..8fe453b 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -1193,7 +1193,7 @@ InfoFrameCmd( levelError: Tcl_SetObjResult(interp, Tcl_ObjPrintf( "bad level \"%s\"", TclGetString(objv[1]))); - Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "STACK_FRAME", + Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "LEVEL", TclGetString(objv[1]), NULL); code = TCL_ERROR; goto done; @@ -1628,7 +1628,7 @@ InfoLevelCmd( levelError: Tcl_SetObjResult(interp, Tcl_ObjPrintf( "bad level \"%s\"", TclGetString(objv[1]))); - Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "STACK_LEVEL", + Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "LEVEL", TclGetString(objv[1]), NULL); return TCL_ERROR; } |