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/objects.c | |
| parent | 2f3f7a4fbc6c77e3cf933ea01f584a28bc40936d (diff) | |
| download | bdl-c2bfb5368e603d686190fdc9f3ddbafbda075a9c.tar.gz bdl-c2bfb5368e603d686190fdc9f3ddbafbda075a9c.zip | |
Add some boolean procedures
Diffstat (limited to 'src/bootstrap/objects.c')
| -rw-r--r-- | src/bootstrap/objects.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/bootstrap/objects.c b/src/bootstrap/objects.c index 14ff50d..344cae9 100644 --- a/src/bootstrap/objects.c +++ b/src/bootstrap/objects.c | |||
| @@ -125,6 +125,10 @@ make_pair(Object *car, Object *cdr) { | |||
| 125 | return obj; | 125 | return obj; |
| 126 | } | 126 | } |
| 127 | 127 | ||
| 128 | // | ||
| 129 | // Comparative ops. | ||
| 130 | // | ||
| 131 | |||
| 128 | bool | 132 | bool |
| 129 | symbol_eq(Object *a, Object *b) { | 133 | symbol_eq(Object *a, Object *b) { |
| 130 | if (a->type != b->type || a->type != OBJ_TYPE_SYMBOL || a->symbol_n != b->symbol_n) { | 134 | if (a->type != b->type || a->type != OBJ_TYPE_SYMBOL || a->symbol_n != b->symbol_n) { |
| @@ -137,3 +141,9 @@ symbol_eq(Object *a, Object *b) { | |||
| 137 | } | 141 | } |
| 138 | return true; | 142 | return true; |
| 139 | } | 143 | } |
| 144 | |||
| 145 | // | ||
| 146 | // Utility macros. | ||
| 147 | // | ||
| 148 | |||
| 149 | #define MAKE_SYM(SYM) make_symbol((SYM), sizeof(SYM) - 1) | ||