pit: Fix evaluator

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));