From c2bfb5368e603d686190fdc9f3ddbafbda075a9c Mon Sep 17 00:00:00 2001 From: Bad Diode Date: Sat, 9 Oct 2021 21:21:32 +0200 Subject: Add some boolean procedures --- src/bootstrap/primitives.c | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'src/bootstrap/primitives.c') 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) { } return obj_nil; } + +Object * +proc_is_boolean(Object *args) { + if (args->car == obj_true || args->car == obj_false) { + return obj_true; + } + return obj_false; +} + +Object * +proc_is_false(Object *args) { + return args->car == obj_false ? obj_true : obj_false; +} -- cgit v1.2.1