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_init(sys_t *);
void sys_register(sys_t *, lisp_t *); void sys_register(sys_t *, lisp_t *);
void sys_cleanup(sys_t *); void sys_free(sys_t *);
/// Constructors and destructors /// Constructors and destructors
lisp_t *make_int(i64); 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)); vec_append(&sys->memory, &ptr, sizeof(&ptr));
} }
void sys_cleanup(sys_t *sys) void sys_free(sys_t *sys)
{ {
static_assert(NUM_TAGS == 5); 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(strncmp(in, out, strlen(in)) == 0, "%d", strncmp(in, out, strlen(in)));
} }
TEST_PASSED(); TEST_PASSED();
sys_cleanup(&system); sys_free(&system);
} }
void cons_test(void) void cons_test(void)
@@ -91,7 +91,7 @@ void cons_test(void)
TEST_PASSED(); TEST_PASSED();
sys_cleanup(&system); sys_free(&system);
} }
const test_fn TESTS_LISP_API[] = { 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)); strncmp((char *)vec_data(vec), words_text, vec->size));
TEST_PASSED(); TEST_PASSED();
sys_cleanup(&system); sys_free(&system);
} }
void vec_test2(void) void vec_test2(void)
@@ -65,7 +65,7 @@ void vec_test2(void)
} }
TEST_PASSED(); TEST_PASSED();
sys_cleanup(&system); sys_free(&system);
} }
const test_fn TESTS_VEC[] = { const test_fn TESTS_VEC[] = {