add hasADot()

1 files changed, 7 insertions, 0 deletions

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");