diff options
Diffstat (limited to 'generic/tclOOMethod.c')
| -rw-r--r-- | generic/tclOOMethod.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c index 112d663..4e7edb8 100644 --- a/generic/tclOOMethod.c +++ b/generic/tclOOMethod.c @@ -1340,6 +1340,7 @@ TclOONewForwardInstanceMethod( if (prefixLen < 1) { Tcl_AppendResult(interp, "method forward prefix must be non-empty", NULL); + Tcl_SetErrorCode(interp, "TCL", "OO", "BAD_FORWARD", NULL); return NULL; } @@ -1381,6 +1382,7 @@ TclOONewForwardMethod( if (prefixLen < 1) { Tcl_AppendResult(interp, "method forward prefix must be non-empty", NULL); + Tcl_SetErrorCode(interp, "TCL", "OO", "BAD_FORWARD", NULL); return NULL; } |