diff options
author | Bad Diode <bd@badd10de.dev> | 2021-10-13 17:18:31 +0200 |
---|---|---|
committer | Bad Diode <bd@badd10de.dev> | 2021-10-13 17:18:31 +0200 |
commit | e068d45199bb23452821727e5b82a2307ae0256d (patch) | |
tree | 3ea7c52adda766e4732306c0fa0787e0244edc15 /src/bootstrap/main.c | |
parent | ed1f406102738812fafa5e49ee131fe06c177687 (diff) | |
download | bdl-e068d45199bb23452821727e5b82a2307ae0256d.tar.gz bdl-e068d45199bb23452821727e5b82a2307ae0256d.zip |
Add eq? primitive procedure
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 |