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/tclProc.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/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index ef7ce13..8223171 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -907,7 +907,7 @@ TclObjGetFrame( } Tcl_SetObjResult(interp, Tcl_ObjPrintf("bad level \"%s\"", name)); - Tcl_SetErrorCode(interp, "TCL", "VALUE", "STACKLEVEL", NULL); + Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "LEVEL", name, NULL); return -1; } |