From d653fc6500f5a09eb509edf7ad0599ab1632ddc1 Mon Sep 17 00:00:00 2001
From: Daniel Cerqueira <dan.git@lispclub.com>
Date: Mon, 17 Aug 2026 10:20:27 +0100
Subject: remove and > and < , primitives, add and <= and >=, primitives

---
 liblali.c | 23 ++++++++---------------
 1 file changed, 8 insertions(+), 15 deletions(-)

(limited to 'liblali.c')

diff --git a/liblali.c b/liblali.c
index 3636d4b..a8d8adc 100644
--- a/liblali.c
+++ b/liblali.c
@@ -1084,17 +1084,10 @@ DEFINE_PRIMITIVE_ARITHMETIC(primitiveRemainder, %, "+1", atoi,    int,  "%d",  "
 
 /* DEFINE_PRIMITIVE_RELATIONAL(primitiveDifferent,    !=, false) */
 /* DEFINE_PRIMITIVE_RELATIONAL(primitiveEqual,        ==, true) */
-DEFINE_PRIMITIVE_RELATIONAL(primitiveLess,          <, true)
-/* DEFINE_PRIMITIVE_RELATIONAL(primitiveLessEqual,    <=, true) */
-DEFINE_PRIMITIVE_RELATIONAL(primitiveGreater,       >, true)
-/* DEFINE_PRIMITIVE_RELATIONAL(primitiveGreaterEqual, >=, true) */
-
-bool hasADot(char *string) {
-  for (int i = 0; string[i] != '\0'; i++)
-    if (string[i] == '.')
-      return true;
-  return false;
-}
+/* DEFINE_PRIMITIVE_RELATIONAL(primitiveLess,          <, true) */
+DEFINE_PRIMITIVE_RELATIONAL(primitiveLessEqual,    <=, true)
+/* DEFINE_PRIMITIVE_RELATIONAL(primitiveGreater,       >, true) */
+DEFINE_PRIMITIVE_RELATIONAL(primitiveGreaterEqual, >=, true)
 
 Object *say(Object *object, GC_PARAM) {
   if ((object)->type != TYPE_SYMBOL &&
@@ -1338,10 +1331,10 @@ Primitive primitives[] = {
   { "%",       1, -1, primitiveRemainder    },
   /* { "=",       1, -1, primitiveEqual        }, */
   /* { "!",       1, -1, primitiveDifferent    }, */
-  { "<",       1, -1, primitiveLess         },
-  /* { "<=",      1, -1, primitiveLessEqual    }, */
-  { ">",       1, -1, primitiveGreater      },
-  /* { ">=",      1, -1, primitiveGreaterEqual } */
+  /* { "<",       1, -1, primitiveLess         }, */
+  { "<=",      1, -1, primitiveLessEqual    },
+  /* { ">",       1, -1, primitiveGreater      }, */
+  { ">=",      1, -1, primitiveGreaterEqual },
   { "join",    1,  1, primitiveJoin         },
   { "split",   1,  1, primitiveSplit        },
 };
-- 
cgit