feat: fix memory leak in join function.

This commit is contained in:
NunoSempere 2023-05-02 10:11:27 -04:00
parent 0049079be2
commit 2b8d8b89cf
2 changed files with 1 additions and 1 deletions

BIN
mumble

Binary file not shown.

View File

@ -451,7 +451,7 @@ lispval* builtin_join(lispval* l)
LISPVAL_ASSERT(temp->type == LISPVAL_QEXPR, "Error: function join not passed a q expression with other q-expressions"); LISPVAL_ASSERT(temp->type == LISPVAL_QEXPR, "Error: function join not passed a q expression with other q-expressions");
for (int j = 0; j < temp->count; j++) { for (int j = 0; j < temp->count; j++) {
lispval_append_child(result, temp->cell[j]); lispval_append_child(result, clone_lispval(temp->cell[j]));
} }
} }
return result; return result;