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 | 7505833c266274e4d14a84da70f21f23c7f5b9f7 (patch) | |
| tree | c182fbf06349d81ce3f64070e0fbd1ff8c110abf /generic | |
| parent | 176fe9c104f50d0b560621ed09aef70f71b0422f (diff) | |
| download | tcl-7505833c266274e4d14a84da70f21f23c7f5b9f7.zip tcl-7505833c266274e4d14a84da70f21f23c7f5b9f7.tar.gz tcl-7505833c266274e4d14a84da70f21f23c7f5b9f7.tar.bz2 | |
fix comments describing tailcall implementation
Diffstat (limited to 'generic')
| -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; } |