diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2014-01-13 08:06:43 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2014-01-13 08:06:43 (GMT) |
| commit | a720dda14fd0f8a0f500dc3c3ed270e4f1a7df21 (patch) | |
| tree | b9160847863784dfe55e508ea2eab9da956df310 /generic/tclCompile.c | |
| parent | 6d0c048673ccd7e87ee15e8b3100172a6e60298f (diff) | |
| download | tcl-a720dda14fd0f8a0f500dc3c3ed270e4f1a7df21.zip tcl-a720dda14fd0f8a0f500dc3c3ed270e4f1a7df21.tar.gz tcl-a720dda14fd0f8a0f500dc3c3ed270e4f1a7df21.tar.bz2 | |
extend [string is] to booleans
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index c01571f..39fa241 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -624,6 +624,9 @@ InstructionDesc const tclInstructionTable[] = { {"numericType", 1, 0, 0, {OPERAND_NONE}}, /* Pushes the numeric type code of the word at the top of the stack. * Stack: ... value => ... typeCode */ + {"tryCvtToBoolean", 1, +1, 0, {OPERAND_NONE}}, + /* Try converting stktop to boolean if possible. No errors. + * Stack: ... value => ... value isStrictBool */ {NULL, 0, 0, 0, {OPERAND_NONE}} }; |