diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2009-12-13 17:54:05 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2009-12-13 17:54:05 (GMT) |
| commit | 34c92528795ba365f8d95e1a47f64d0c726ba3e2 (patch) | |
| tree | cff1148561c8796ea19dbe7070ba78ee7a21fc36 | |
| parent | f1c4f10de67bfd4fa6dadc2c4bb9f05396d1d282 (diff) | |
| download | tcl-34c92528795ba365f8d95e1a47f64d0c726ba3e2.zip tcl-34c92528795ba365f8d95e1a47f64d0c726ba3e2.tar.gz tcl-34c92528795ba365f8d95e1a47f64d0c726ba3e2.tar.bz2 | |
fix comment
| -rw-r--r-- | generic/tclBasic.c | 12 |
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); |