diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2012-11-01 16:47:41 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2012-11-01 16:47:41 (GMT) |
| commit | 64be38de51614d0fb9a2bf6b5d905022cb556c15 (patch) | |
| tree | d3f54a404553b69d367d2bcf2e71c6deab5dbe7e /generic/tclCompile.c | |
| parent | a1ee0c2449ab963c064a63f205719846b4fb8515 (diff) | |
| download | tcl-64be38de51614d0fb9a2bf6b5d905022cb556c15.zip tcl-64be38de51614d0fb9a2bf6b5d905022cb556c15.tar.gz tcl-64be38de51614d0fb9a2bf6b5d905022cb556c15.tar.bz2 | |
Added compilation of [dict create] and [dict merge].
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 128273b..f979fa3 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -440,6 +440,10 @@ InstructionDesc const tclInstructionTable[] = { * boolean indicating whether it is possible to read out a value from * that key-path (like [dict exists]). * Stack: ... dict key1 ... keyN => ... boolean */ + {"verifyDict", 1, -1, 0, {OPERAND_NONE}}, + /* Verifies that the word on the top of the stack is a dictionary, + * popping it if it is and throwing an error if it is not. + * Stack: ... value => ... */ {"strmap", 1, -2, 0, {OPERAND_NONE}}, /* Simplified version of [string map] that only applies one change |