diff options
author | Bad Diode <bd@badd10de.dev> | 2021-10-09 21:21:32 +0200 |
---|---|---|
committer | Bad Diode <bd@badd10de.dev> | 2021-10-09 21:21:32 +0200 |
commit | c2bfb5368e603d686190fdc9f3ddbafbda075a9c (patch) | |
tree | 8de0c13cf2d260906d9b56d15a6e19cc402c2a8a /src/bootstrap/main.c | |
parent | 2f3f7a4fbc6c77e3cf933ea01f584a28bc40936d (diff) | |
download | bdl-c2bfb5368e603d686190fdc9f3ddbafbda075a9c.tar.gz bdl-c2bfb5368e603d686190fdc9f3ddbafbda075a9c.zip |
Add some boolean procedures
Diffstat (limited to 'src/bootstrap/main.c')
-rwxr-xr-x | src/bootstrap/main.c | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/bootstrap/main.c b/src/bootstrap/main.c index e5d9b17..95b2e49 100755 --- a/src/bootstrap/main.c +++ b/src/bootstrap/main.c | |||
@@ -32,11 +32,13 @@ init(void) { | |||
32 | obj_false = make_boolean(false); | 32 | obj_false = make_boolean(false); |
33 | 33 | ||
34 | // Add primitive functions. | 34 | // Add primitive functions. |
35 | environment[env_n++] = (EnvSymbol){make_symbol("+", 1), make_procedure(proc_add)}; | 35 | environment[env_n++] = (EnvSymbol){MAKE_SYM("+"), make_procedure(proc_add)}; |
36 | environment[env_n++] = (EnvSymbol){make_symbol("-", 1), make_procedure(proc_sub)}; | 36 | environment[env_n++] = (EnvSymbol){MAKE_SYM("-"), make_procedure(proc_sub)}; |
37 | environment[env_n++] = (EnvSymbol){make_symbol("*", 1), make_procedure(proc_mul)}; | 37 | environment[env_n++] = (EnvSymbol){MAKE_SYM("*"), make_procedure(proc_mul)}; |
38 | environment[env_n++] = (EnvSymbol){make_symbol("/", 1), make_procedure(proc_div)}; | 38 | environment[env_n++] = (EnvSymbol){MAKE_SYM("/"), make_procedure(proc_div)}; |
39 | environment[env_n++] = (EnvSymbol){make_symbol("display", 7), make_procedure(proc_display)}; | 39 | environment[env_n++] = (EnvSymbol){MAKE_SYM("boolean?"), make_procedure(proc_is_boolean)}; |
40 | environment[env_n++] = (EnvSymbol){MAKE_SYM("false?"), make_procedure(proc_is_false)}; | ||
41 | environment[env_n++] = (EnvSymbol){MAKE_SYM("display"), make_procedure(proc_display)}; | ||
40 | } | 42 | } |
41 | 43 | ||
42 | void | 44 | void |