From 3a91d041c8e4f0a9b629d5e135b5d5d218a8e0b2 Mon Sep 17 00:00:00 2001 From: dkf Date: Tue, 20 Jan 2004 15:40:37 +0000 Subject: Minor comment improvements FossilOrigin-Name: 5dac2d29554fd6f0f49c530caf5d1212ffa738ca --- generic/tclCompCmds.c | 11 ++++++----- 1 file 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 -- cgit v0.12