diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2007-06-21 12:43:17 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2007-06-21 12:43:17 (GMT) |
| commit | fcd900918cdac647cc943dfa32196fda722d489d (patch) | |
| tree | c557255a354ad2cf13dd6488f2877e2c15223a8d /generic | |
| parent | f2a4435d9dcee968a38875304ef473a7e4d32698 (diff) | |
| download | tcl-fcd900918cdac647cc943dfa32196fda722d489d.zip tcl-fcd900918cdac647cc943dfa32196fda722d489d.tar.gz tcl-fcd900918cdac647cc943dfa32196fda722d489d.tar.bz2 | |
Fix comments referring to {expand}. [Bug 1600859]
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tcl.h | 8 | ||||
| -rw-r--r-- | generic/tclCompile.c | 4 | ||||
| -rw-r--r-- | generic/tclCompile.h | 4 |
3 files changed, 8 insertions, 8 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 657fa6b..873a72c 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tcl.h,v 1.231 2007/05/18 18:39:30 dgp Exp $ + * RCS: @(#) $Id: tcl.h,v 1.232 2007/06/21 12:43:17 dkf Exp $ */ #ifndef _TCL @@ -2010,9 +2010,9 @@ typedef struct Tcl_Token { * operands. NumComponents is always 0. * TCL_TOKEN_EXPAND_WORD - This token is just like TCL_TOKEN_WORD except * that it marks a word that began with the - * literal character prefix "{expand}". This word - * is marked to be expanded - that is, broken - * into words after substitution is complete. + * literal character prefix "{*}". This word is + * marked to be expanded - that is, broken into + * words after substitution is complete. */ #define TCL_TOKEN_WORD 1 diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 30520ed..cc917e1 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.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: tclCompile.c,v 1.121 2007/06/20 18:46:11 dgp Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.122 2007/06/21 12:43:18 dkf Exp $ */ #include "tclInt.h" @@ -289,7 +289,7 @@ InstructionDesc tclInstructionTable[] = { * is emitted. */ {"expandStart", 1, 0, 0, {OPERAND_NONE}}, - /* Start of command with {expand}ed arguments */ + /* Start of command with {*} (expanded) arguments */ {"expandStkTop", 5, 0, 1, {OPERAND_UINT4}}, /* Expand the list at stacktop: push its elements on the stack */ {"invokeExpanded", 1, 0, 0, {OPERAND_NONE}}, diff --git a/generic/tclCompile.h b/generic/tclCompile.h index fc61542..691d673 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompile.h,v 1.73 2007/06/15 19:58:13 msofer Exp $ + * RCS: @(#) $Id: tclCompile.h,v 1.74 2007/06/21 12:43:18 dkf Exp $ */ #ifndef _TCLCOMPILATION @@ -569,7 +569,7 @@ typedef struct ByteCode { #define INST_EXPON 99 -/* TIP #157 - {expand}... language syntax support. */ +/* TIP #157 - {*}... (word expansion) language syntax support. */ #define INST_EXPAND_START 100 #define INST_EXPAND_STKTOP 101 |