refactor to analyze gc

1 files changed, 7 insertions, 0 deletions

diff --git a/src/builtins.c b/src/builtins.c
index abd2ae9..5ed285a 100644
--- a/src/builtins.c
+++ b/src/builtins.c
@@ -382,6 +382,13 @@ SExpRef builtin_ge(Interp *interp, SExpRef args) {
     }
 }
 
+SExpRef builtin_gcstat(Interp *interp, SExpRef args) {
+    int heapsize = SExpVector_len(&interp->objs);
+    int freesize = IntVector_len(&interp->empty_space);
+    fprintf(stderr, "heapsize: %d, free: %d\n", heapsize, freesize);
+    return NIL;
+}
+
 SExpRef builtin_le(Interp *interp, SExpRef args) {
     int args_len = lisp_length(interp, args);
     if (args_len != 2) return new_error(interp, "<=: wrong argument number.\n");