oreodave/alisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lisp: sys_cleanup -> sys_free

Browse Source
This commit is contained in:
Aryadev Chavali
2026-02-05 04:01:07 +00:00
parent 068e4aa9f0
commit 438a494ac7
4 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
include/alisp/lisp.h
View File

@@ -30,7 +30,7 @@ typedef struct
void sys_init(sys_t *);
void sys_register(sys_t *, lisp_t *);
void sys_cleanup(sys_t *);
void sys_free(sys_t *);
/// Constructors and destructors
lisp_t *make_int(i64);

2
src/lisp.c
View File

@@ -22,7 +22,7 @@ void sys_register(sys_t *sys, lisp_t *ptr)
vec_append(&sys->memory, &ptr, sizeof(&ptr));
}
void sys_cleanup(sys_t *sys)
void sys_free(sys_t *sys)
{
static_assert(NUM_TAGS == 5);

4
test/test_lisp_api.c
View File

@@ -60,7 +60,7 @@ void sym_test(void)
TEST(strncmp(in, out, strlen(in)) == 0, "%d", strncmp(in, out, strlen(in)));
}
TEST_PASSED();
sys_cleanup(&system);
sys_free(&system);
}
void cons_test(void)
@@ -91,7 +91,7 @@ void cons_test(void)
TEST_PASSED();
sys_cleanup(&system);
sys_free(&system);
}
const test_fn TESTS_LISP_API[] = {

4
test/test_vec.c
View File

@@ -32,7 +32,7 @@ void vec_test1(void)
strncmp((char *)vec_data(vec), words_text, vec->size));
TEST_PASSED();
sys_cleanup(&system);
sys_free(&system);
}
void vec_test2(void)
@@ -65,7 +65,7 @@ void vec_test2(void)
}
TEST_PASSED();
sys_cleanup(&system);
sys_free(&system);
}
const test_fn TESTS_VEC[] = {