diff options
Diffstat (limited to 'pit/src/library.c')
| -rw-r--r-- | pit/src/library.c | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/pit/src/library.c b/pit/src/library.c index 6e87255..b911321 100644 --- a/pit/src/library.c +++ b/pit/src/library.c @@ -216,15 +216,6 @@ static pit_value impl_m_case(pit_runtime *rt, pit_value args, void *data) { ); } -static pit_value impl_progn(pit_runtime *rt, pit_value args, void *data) { - (void) data; - pit_value ret = PIT_NIL; - while (args != PIT_NIL) { - ret = pit_value_cons_car(rt, args); - args = pit_value_cons_cdr(rt, args); - } - return ret; -} static pit_value impl_set(pit_runtime *rt, pit_value args, void *data) { (void) data; pit_value sym = pit_value_cons_car(rt, args); @@ -780,7 +771,6 @@ void pit_install_library_essential(pit_runtime *rt) { /* error */ pit_symtab_fset(rt, pit_symtab_intern_cstr(rt, "error!"), pit_value_nativefunc_new(rt, impl_error)); /* basics */ - pit_symtab_fset(rt, pit_symtab_intern_cstr(rt, "progn"), pit_value_nativefunc_new(rt, impl_progn)); pit_symtab_fset(rt, pit_symtab_intern_cstr(rt, "eval!"), pit_value_nativefunc_new(rt, impl_eval)); /* predicates */ pit_symtab_fset(rt, pit_symtab_intern_cstr(rt, "eq?"), pit_value_nativefunc_new(rt, impl_eq_p)); |