diff options
Diffstat (limited to 'src/bootstrap/main.c')
-rwxr-xr-x | src/bootstrap/main.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/bootstrap/main.c b/src/bootstrap/main.c index 8092bbd..945e121 100755 --- a/src/bootstrap/main.c +++ b/src/bootstrap/main.c | |||
@@ -14,6 +14,10 @@ | |||
14 | #include "environment.c" | 14 | #include "environment.c" |
15 | #include "primitives.c" | 15 | #include "primitives.c" |
16 | 16 | ||
17 | // | ||
18 | // Utility macros. | ||
19 | // | ||
20 | |||
17 | #define MAKE_SYM(STR) make_symbol((StringView){(STR), sizeof(STR) - 1}) | 21 | #define MAKE_SYM(STR) make_symbol((StringView){(STR), sizeof(STR) - 1}) |
18 | #define MAKE_ENV_VAR(ENV,STR,VAR) \ | 22 | #define MAKE_ENV_VAR(ENV,STR,VAR) \ |
19 | (env_add_symbol((ENV), MAKE_SYM(STR), (VAR))) | 23 | (env_add_symbol((ENV), MAKE_SYM(STR), (VAR))) |
@@ -66,6 +70,7 @@ init(void) { | |||
66 | MAKE_ENV_PROC(global_env, ">", proc_num_greater_than); | 70 | MAKE_ENV_PROC(global_env, ">", proc_num_greater_than); |
67 | MAKE_ENV_PROC(global_env, ">=", proc_num_greatereq_than); | 71 | MAKE_ENV_PROC(global_env, ">=", proc_num_greatereq_than); |
68 | MAKE_ENV_PROC(global_env, "=", proc_num_equal); | 72 | MAKE_ENV_PROC(global_env, "=", proc_num_equal); |
73 | MAKE_ENV_PROC(global_env, "eq?", proc_equal); | ||
69 | } | 74 | } |
70 | 75 | ||
71 | void | 76 | void |