diff options
| author | Steve Bennett <steveb@workware.net.au> | 2011-08-03 08:51:17 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2011-08-03 09:02:25 +1000 |
| commit | 7303b4685a2c3c04e41ba8a9c44c8416879fc380 (patch) | |
| tree | a9b55884d8b376a266d253aba658fa2fec14957c /jim-array.c | |
| parent | cbeb3ea3fba64cca44600df912ea04656e0bf7f2 (diff) | |
| download | jimtcl-7303b4685a2c3c04e41ba8a9c44c8416879fc380.zip jimtcl-7303b4685a2c3c04e41ba8a9c44c8416879fc380.tar.gz jimtcl-7303b4685a2c3c04e41ba8a9c44c8416879fc380.tar.bz2 | |
Fix commit cbeb3ea: unset missing array element
Although [dict unset] should not complain about
being unable to unset a missing element, unset via array
syntax (dict sugar) should - to be compatible with Tcl.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'jim-array.c')
| -rw-r--r-- | jim-array.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/jim-array.c b/jim-array.c index f2da480..1c601e4 100644 --- a/jim-array.c +++ b/jim-array.c @@ -211,7 +211,7 @@ static int array_cmd_set(Jim_Interp *interp, int argc, Jim_Obj *const *argv) Jim_ListIndex(interp, listObj, i, &nameObj, JIM_NONE); Jim_ListIndex(interp, listObj, i + 1, &valueObj, JIM_NONE); - rc = Jim_SetDictKeysVector(interp, argv[0], &nameObj, 1, valueObj); + rc = Jim_SetDictKeysVector(interp, argv[0], &nameObj, 1, valueObj, JIM_ERRMSG); } return rc; |