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-file.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-file.c')
| -rw-r--r-- | jim-file.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -132,7 +132,7 @@ static int set_array_int_value(Jim_Interp *interp, Jim_Obj *container, const cha Jim_Obj *nameobj = Jim_NewStringObj(interp, key, -1); Jim_Obj *valobj = Jim_NewWideObj(interp, value); - if (Jim_SetDictKeysVector(interp, container, &nameobj, 1, valobj) != JIM_OK) { + if (Jim_SetDictKeysVector(interp, container, &nameobj, 1, valobj, JIM_ERRMSG) != JIM_OK) { Jim_FreeObj(interp, nameobj); Jim_FreeObj(interp, valobj); return JIM_ERR; @@ -146,7 +146,7 @@ static int set_array_string_value(Jim_Interp *interp, Jim_Obj *container, const Jim_Obj *nameobj = Jim_NewStringObj(interp, key, -1); Jim_Obj *valobj = Jim_NewStringObj(interp, value, -1); - if (Jim_SetDictKeysVector(interp, container, &nameobj, 1, valobj) != JIM_OK) { + if (Jim_SetDictKeysVector(interp, container, &nameobj, 1, valobj, JIM_ERRMSG) != JIM_OK) { Jim_FreeObj(interp, nameobj); Jim_FreeObj(interp, valobj); return JIM_ERR; |