diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2009-12-11 14:01:29 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2009-12-11 14:01:29 (GMT) |
| commit | 7e3597c8ffaf3639ba4bd4dc1d8185f0387c3453 (patch) | |
| tree | ebdfd6c741861f4a1f64cef60c030f2275d0d2b2 | |
| parent | 0ee39daeb4a09e4e5d7b72aed5577ac126244244 (diff) | |
| download | tcl-7e3597c8ffaf3639ba4bd4dc1d8185f0387c3453.zip tcl-7e3597c8ffaf3639ba4bd4dc1d8185f0387c3453.tar.gz tcl-7e3597c8ffaf3639ba4bd4dc1d8185f0387c3453.tar.bz2 | |
fix comment
| -rw-r--r-- | generic/tclBasic.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 79d76be..9469792 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.430 2009/12/11 04:47:13 msofer Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.431 2009/12/11 14:01:29 msofer Exp $ */ #include "tclInt.h" @@ -4215,9 +4215,8 @@ TclNRRunCallbacks( struct TEOV_callback *rootPtr, /* All callbacks down to rootPtr not inclusive * are to be run. */ - int tebcCall) /* Normal callers set this to 0; TEBC sets it - * to 1 when executing a bytecode, to 2 when - * cleaning up after a bytecode returns. */ + int tebcCall) /* Normal callers set this to 0; only TEBC + * sets it to 1. */ { Interp *iPtr = (Interp *) interp; TEOV_callback *callbackPtr; |