diff options
| author | dkf <dkf@noemail.net> | 2004-01-20 15:40:37 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2004-01-20 15:40:37 (GMT) |
| commit | 3a91d041c8e4f0a9b629d5e135b5d5d218a8e0b2 (patch) | |
| tree | 7d473b14b0a4bf7c12d4bb75e2557a4788be45c6 | |
| parent | 10b880ef8280ea924ff8346af3d1a391cb7f106c (diff) | |
| download | tcl-3a91d041c8e4f0a9b629d5e135b5d5d218a8e0b2.zip tcl-3a91d041c8e4f0a9b629d5e135b5d5d218a8e0b2.tar.gz tcl-3a91d041c8e4f0a9b629d5e135b5d5d218a8e0b2.tar.bz2 | |
Minor comment improvements
FossilOrigin-Name: 5dac2d29554fd6f0f49c530caf5d1212ffa738ca
| -rw-r--r-- | generic/tclCompCmds.c | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 9ec265c..477c4fe 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompCmds.c,v 1.54 2004/01/18 16:19:04 dkf Exp $ + * RCS: @(#) $Id: tclCompCmds.c,v 1.55 2004/01/20 15:40:37 dkf Exp $ */ #include "tclInt.h" @@ -87,7 +87,7 @@ TclCompileAppendCmd(interp, parsePtr, envPtr) return TCL_ERROR; } else if (numWords == 2) { /* - * append varName === set varName + * append varName == set varName */ return TclCompileSetCmd(interp, parsePtr, envPtr); } else if (numWords > 3) { @@ -1750,9 +1750,10 @@ TclCompileLappendCmd(interp, parsePtr, envPtr) * Results: * The return value is a standard Tcl result, which is TCL_OK if the * compilation was successful. If the command cannot be byte-compiled, - * TCL_OUT_LINE_COMPILE is returned. If an error occurs then the - * interpreter's result contains an error message, and TCL_ERROR is - * returned. + * TCL_OUT_LINE_COMPILE is returned, indicating that the command should + * be compiled "out of line" by emitting code to invoke its command + * procedure (Tcl_LassignObjCmd) at runtime, which enforces in correct + * error handling. * * Side effects: * Instructions are added to envPtr to execute the "lassign" command |