foreach: Avoid memory leak in case of error

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 2 insertions, 1 deletions

diff --git a/jim.c b/jim.c
index 79f126c..1270330 100644
--- a/jim.c
+++ b/jim.c
@@ -11899,7 +11899,7 @@ static int JimForeachMapHelper(Jim_Interp *interp, int argc, Jim_Obj *const *arg
     }
     if (result != JIM_OK) {
         Jim_SetResultString(interp, "foreach varlist is empty", -1);
-        return result;
+        goto empty_varlist;
     }
 
     if (doMap) {
@@ -11962,6 +11962,7 @@ static int JimForeachMapHelper(Jim_Interp *interp, int argc, Jim_Obj *const *arg
     Jim_SetResult(interp, resultObj);
   err:
     Jim_DecrRefCount(interp, resultObj);
+  empty_varlist:
     if (numargs > 2) {
         Jim_Free(iters);
     }