diff options
| -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 |