diff options
Diffstat (limited to 'src/bootstrap/primitives.c')
-rw-r--r-- | src/bootstrap/primitives.c | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/bootstrap/primitives.c b/src/bootstrap/primitives.c index f72e484..e4c18cd 100644 --- a/src/bootstrap/primitives.c +++ b/src/bootstrap/primitives.c | |||
@@ -221,3 +221,16 @@ proc_display(Object *args) { | |||
221 | } | 221 | } |
222 | return obj_nil; | 222 | return obj_nil; |
223 | } | 223 | } |
224 | |||
225 | Object * | ||
226 | proc_is_boolean(Object *args) { | ||
227 | if (args->car == obj_true || args->car == obj_false) { | ||
228 | return obj_true; | ||
229 | } | ||
230 | return obj_false; | ||
231 | } | ||
232 | |||
233 | Object * | ||
234 | proc_is_false(Object *args) { | ||
235 | return args->car == obj_false ? obj_true : obj_false; | ||
236 | } | ||