From a2ab90cfb9e364a3de7157b2ea2905e4c944583d Mon Sep 17 00:00:00 2001 From: Felix Perktold Date: Sun, 18 Jan 2026 15:51:54 +0100 Subject: renamed builtins to procedures --- main.c | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'main.c') diff --git a/main.c b/main.c index 5a8043b..86aa69d 100644 --- a/main.c +++ b/main.c @@ -94,19 +94,19 @@ void init_readline() { int main(int argc, char **argv) { // init global env global_env = env_create(NULL); - env_define(global_env, "cons", make_builtin(builtin_cons)); - env_define(global_env, "car", make_builtin(builtin_car)); - env_define(global_env, "cdr", make_builtin(builtin_cdr)); - env_define(global_env, "reverse", make_builtin(builtin_reverse)); - env_define(global_env, "null?", make_builtin(builtin_isnull)); - env_define(global_env, "equal?", make_builtin(builtin_equal)); - env_define(global_env, "+", make_builtin(builtin_add)); - env_define(global_env, "-", make_builtin(builtin_sub)); - env_define(global_env, "*", make_builtin(builtin_mul)); - env_define(global_env, "/", make_builtin(builtin_div)); - env_define(global_env, "<", make_builtin(builtin_lt)); - - env_define(global_env, "load_module", make_builtin(builtin_load_module)); + env_define(global_env, "cons", make_procedure(procedure_cons)); + env_define(global_env, "car", make_procedure(procedure_car)); + env_define(global_env, "cdr", make_procedure(procedure_cdr)); + env_define(global_env, "reverse", make_procedure(procedure_reverse)); + env_define(global_env, "null?", make_procedure(procedure_isnull)); + env_define(global_env, "equal?", make_procedure(procedure_equal)); + env_define(global_env, "+", make_procedure(procedure_add)); + env_define(global_env, "-", make_procedure(procedure_sub)); + env_define(global_env, "*", make_procedure(procedure_mul)); + env_define(global_env, "/", make_procedure(procedure_div)); + env_define(global_env, "<", make_procedure(procedure_lt)); + + env_define(global_env, "load_module", make_procedure(procedure_load_module)); // evaluate files for(int i = 1; i < argc; i++) { -- cgit v1.2.3