summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2015-03-23 16:05:04 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2015-03-23 16:05:04 (GMT)
commit7505833c266274e4d14a84da70f21f23c7f5b9f7 (patch)
treec182fbf06349d81ce3f64070e0fbd1ff8c110abf
parent176fe9c104f50d0b560621ed09aef70f71b0422f (diff)
downloadtcl-7505833c266274e4d14a84da70f21f23c7f5b9f7.zip
tcl-7505833c266274e4d14a84da70f21f23c7f5b9f7.tar.gz
tcl-7505833c266274e4d14a84da70f21f23c7f5b9f7.tar.bz2
fix comments describing tailcall implementation
-rw-r--r--generic/tclBasic.c4
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;
}