diff --git a/include/alisp/lisp.h b/include/alisp/lisp.h
index acce8df..ce52176 100644
--- a/include/alisp/lisp.h
+++ b/include/alisp/lisp.h
@@ -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);
diff --git a/src/lisp.c b/src/lisp.c
index e58e68f..77dcf24 100644
--- a/src/lisp.c
+++ b/src/lisp.c
@@ -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);
 
diff --git a/test/test_lisp_api.c b/test/test_lisp_api.c
index 7df3230..0b02c30 100644
--- a/test/test_lisp_api.c
+++ b/test/test_lisp_api.c
@@ -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[] = {
diff --git a/test/test_vec.c b/test/test_vec.c
index 31526c0..6e901ea 100644
--- a/test/test_vec.c
+++ b/test/test_vec.c
@@ -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[] = {