Zander671/glisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix leak

Browse Source
This commit is contained in:
Alexander Rosenberg
2026-01-29 00:20:17 -08:00
parent a64051403a
commit e5def8a0ad
2 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/kernel.gl
View File

@ -1,3 +1,3 @@
;; -*- mode: lisp-data -*-
(print ((lambda (a) a) 1))
(print ((lambda (a b &rest r &key c &allow-other-keys) r) 1 2 :c 3 :d 4))

3
src/function.c
View File

@ -432,6 +432,7 @@ push_interpreted_args_to_lexenv(LispFunction *fobj, LispVal *args) {
LispVal *seen_kw = make_hash_table_no_gc(Qnil, Qnil);
while (!NILP(args)) {
if (NILP(XCDR(args))) {
release_hash_table_no_gc(seen_kw);
return PROCESS_ARGS_NO_KEY_VALUE;
}
// has index in front
@ -440,6 +441,7 @@ push_interpreted_args_to_lexenv(LispFunction *fobj, LispVal *args) {
Fputhash(seen_kw, XCAR(args), Qt);
push_optional_argument_to_lexenv(XCDR(i_spec), SECOND(args));
} else if (!fobj->args.allow_other_keys) {
release_hash_table_no_gc(seen_kw);
return PROCESS_ARGS_BAD_KEY;
}
args = XCDR(XCDR(args));
@ -450,6 +452,7 @@ push_interpreted_args_to_lexenv(LispFunction *fobj, LispVal *args) {
XCDR(HASH_VALUE(fobj->args.kw, i)));
}
}
release_hash_table_no_gc(seen_kw);
return PROCESS_ARGS_OK;
}