memory fix from Nelson

* merges:
  Fix heap free in __pntw_1dict

diff --git a/src/map.c b/src/map.c
index 2656975..ce2e749 100644 (file)
--- a/src/map.c
+++ b/src/map.c
@@ -2513,7 +2513,7 @@ __pntw_1dict(Lisp_Object dict, Lisp_Object fun,
 
        result = __dress_result(result_type, vals, len);
        if (UNLIKELY(leni == 0)) {
-               xfree(vals);
+               xfree(keys);
        }
        return result;
 }