diff options
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) | ||