diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-01-20 15:40:37 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-01-20 15:40:37 (GMT) |
| commit | 26501422faee6d6882bd5a0b548897641d548757 (patch) | |
| tree | 7d473b14b0a4bf7c12d4bb75e2557a4788be45c6 | |
| parent | e74393a007e886259b654b3aa7b415b42c5c5561 (diff) | |
| download | tcl-26501422faee6d6882bd5a0b548897641d548757.zip tcl-26501422faee6d6882bd5a0b548897641d548757.tar.gz tcl-26501422faee6d6882bd5a0b548897641d548757.tar.bz2 | |
Minor comment improvements
| -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 |