summaryrefslogtreecommitdiffstats
path: root/generic/tclCompCmds.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclCompCmds.c')
-rw-r--r--generic/tclCompCmds.c11
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