diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-14 15:01:18 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-14 15:01:18 (GMT) |
| commit | 0db2f11f15f912f0e79b915e2f2af197b7c3be20 (patch) | |
| tree | d687a0578a3abc79fe9d4a121f91e407208cf9ff /generic/tclCompCmds.c | |
| parent | 4307d0a739ddfd9545e59a0ccf16067fc2dab2a2 (diff) | |
| parent | f7c3a988274b5e8026bf4836028bfd6831e6a615 (diff) | |
| download | tcl-0db2f11f15f912f0e79b915e2f2af197b7c3be20.zip tcl-0db2f11f15f912f0e79b915e2f2af197b7c3be20.tar.gz tcl-0db2f11f15f912f0e79b915e2f2af197b7c3be20.tar.bz2 | |
Merge trunk
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index ed33d34..2c1fe69 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -230,7 +230,7 @@ TclCompileAppendCmd( * * TclCompileArray*Cmd -- * - * Functions called to compile "array" sucommands. + * Functions called to compile "array" subcommands. * * Results: * All return TCL_OK for a successful compile, and TCL_ERROR to defer @@ -635,7 +635,7 @@ TclCompileCatchCmd( * catch range so that errors in the substitution are not caught. * [Bug 219184] * The reason for duplicating the script is that EVAL_STK would otherwise - * begin by undeflowing the stack below the mark set by BEGIN_CATCH4. + * begin by underflowing the stack below the mark set by BEGIN_CATCH4. */ range = TclCreateExceptRange(CATCH_EXCEPTION_RANGE, envPtr); @@ -983,7 +983,7 @@ TclCompileContinueCmd( * * TclCompileDict*Cmd -- * - * Functions called to compile "dict" sucommands. + * Functions called to compile "dict" subcommands. * * Results: * All return TCL_OK for a successful compile, and TCL_ERROR to defer @@ -1690,7 +1690,7 @@ CompileDictEachCmd( /* * Error handler "finally" clause, which force-terminates the iteration - * and rethrows the error. + * and re-throws the error. */ TclAdjustStackDepth(-1, envPtr); @@ -1862,7 +1862,7 @@ TclCompileDictUpdateCmd( /* * Termination code for non-ok returns: stash the result and return * options in the stack, bring up the key list, finish the update code, - * and finally return with the catched return data + * and finally return with the caught return data */ ExceptionRangeTarget(envPtr, range, catchOffset); @@ -1908,7 +1908,7 @@ TclCompileDictAppendCmd( /* * There must be at least two argument after the command. And we impose an - * (arbirary) safe limit; anyone exceeding it should stop worrying about + * (arbitrary) safe limit; anyone exceeding it should stop worrying about * speed quite so much. ;-) */ |