From 1c4ba09954992d2310a0a58e65700e6452be4c3d Mon Sep 17 00:00:00 2001
From: Daniel Cerqueira <dan.git@lispclub.com>
Date: Tue, 10 Jun 2025 20:24:21 +0100
Subject: add hasADot()

---
 liblali.c | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'liblali.c')

diff --git a/liblali.c b/liblali.c
index a6426af..651ead6 100644
--- a/liblali.c
+++ b/liblali.c
@@ -1034,6 +1034,13 @@ DEFINE_PRIMITIVE_RELATIONAL(primitiveLess,         < , 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;
+}
+
 Object *primitiveJoin(Object **args, GC_PARAM) {
   if ((*args)->car == nil)
     exception("cannot join an empty list");
-- 
cgit