diff options
Diffstat (limited to 'src/library.c')
| -rw-r--r-- | src/library.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/library.c b/src/library.c index 7c63066..5176874 100644 --- a/src/library.c +++ b/src/library.c @@ -805,6 +805,11 @@ void pit_install_library_essential(pit_runtime *rt) { pit_fset(rt, pit_intern_cstr(rt, "bitwise/rshift"), pit_nativefunc_new(rt, impl_bitwise_rshift)); } +static pit_value impl_diagnostics(pit_runtime *rt, pit_value args) { + (void) args; + fprintf(stderr, "value allocs: %ld\n", rt->values->next); + return PIT_NIL; +} static pit_value impl_print(pit_runtime *rt, pit_value args) { pit_value x = pit_car(rt, args); char buf[1024] = {0}; @@ -844,6 +849,8 @@ static pit_value impl_load(pit_runtime *rt, pit_value args) { return ret; } void pit_install_library_io(pit_runtime *rt) { + /* diagnostics */ + pit_fset(rt, pit_intern_cstr(rt, "diagnostics!"), pit_nativefunc_new(rt, impl_diagnostics)); /* stream IO */ pit_fset(rt, pit_intern_cstr(rt, "print!"), pit_nativefunc_new(rt, impl_print)); pit_fset(rt, pit_intern_cstr(rt, "princ!"), pit_nativefunc_new(rt, impl_princ)); |