summaryrefslogtreecommitdiffstats
path: root/generic/tclBasic.c
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2009-12-13 17:54:05 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2009-12-13 17:54:05 (GMT)
commit34c92528795ba365f8d95e1a47f64d0c726ba3e2 (patch)
treecff1148561c8796ea19dbe7070ba78ee7a21fc36 /generic/tclBasic.c
parentf1c4f10de67bfd4fa6dadc2c4bb9f05396d1d282 (diff)
downloadtcl-34c92528795ba365f8d95e1a47f64d0c726ba3e2.zip
tcl-34c92528795ba365f8d95e1a47f64d0c726ba3e2.tar.gz
tcl-34c92528795ba365f8d95e1a47f64d0c726ba3e2.tar.bz2
fix comment
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r--generic/tclBasic.c12
1 files changed, 5 insertions, 7 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 2316f06..1d649a1 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -16,7 +16,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclBasic.c,v 1.434 2009/12/13 17:27:46 msofer Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.435 2009/12/13 17:54:05 msofer Exp $
*/
#include "tclInt.h"
@@ -8289,12 +8289,10 @@ TclNRTailcallObjCmd(
Tcl_IncrRefCount(nsObjPtr);
/*
- * Add two callbacks: first the one to actually evaluate the tailcalled
- * command, then the one that signals TEBC to stash the first at its
- * proper place.
- *
- * Being lazy: add the callback, then remove it (to exploit the
- * TclNRAddCallBack macro to build the callback)
+ * Create the callback to actually evaluate the tailcalled
+ * command, then pass it to tebc so that it is stashed at the proper
+ * place. Being lazy: exploit the TclNRAddCallBack macro to build the
+ * callback.
*/
TclNRAddCallback(interp, NRTailcallEval, listPtr, nsObjPtr, NULL, NULL);