diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-11-01 16:47:41 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-11-01 16:47:41 (GMT) |
| commit | 08ba0e902fe194be25319468633409bc90daaf87 (patch) | |
| tree | d3f54a404553b69d367d2bcf2e71c6deab5dbe7e /generic/tclCompile.c | |
| parent | aafa72469da7da2db317ded2198ef6cfa52b50fa (diff) | |
| download | tcl-08ba0e902fe194be25319468633409bc90daaf87.zip tcl-08ba0e902fe194be25319468633409bc90daaf87.tar.gz tcl-08ba0e902fe194be25319468633409bc90daaf87.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 |