diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2015-03-23 16:05:04 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2015-03-23 16:05:04 (GMT) |
| commit | 63e0947392fd8ac318ca20cd083dfc8d9eb85199 (patch) | |
| tree | c182fbf06349d81ce3f64070e0fbd1ff8c110abf /generic/tclBasic.c | |
| parent | 4ed03a1f4b04eb95cee7f17341ea761887fe7d82 (diff) | |
| download | tcl-63e0947392fd8ac318ca20cd083dfc8d9eb85199.zip tcl-63e0947392fd8ac318ca20cd083dfc8d9eb85199.tar.gz tcl-63e0947392fd8ac318ca20cd083dfc8d9eb85199.tar.bz2 | |
fix comments describing tailcall implementation
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 16e7a5d..f6f66ed 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -8289,9 +8289,9 @@ TclNRTailcallObjCmd( return TCL_ERROR; } - if (!(iPtr->varFramePtr->isProcCallFrame & 1)) { /* or is upleveled */ + if (!(iPtr->varFramePtr->isProcCallFrame & 1)) { Tcl_SetObjResult(interp, Tcl_NewStringObj( - "tailcall can only be called from a proc or lambda", -1)); + "tailcall can only be called from a proc, lambda or method", -1)); Tcl_SetErrorCode(interp, "TCL", "TAILCALL", "ILLEGAL", NULL); return TCL_ERROR; } |