From f3260d01f80a2dd16a095f2c06a3c2e3fb1094ee Mon Sep 17 00:00:00 2001
From: Daniel Cerqueira <dan.git@lispclub.com>
Date: Sun, 31 Aug 2025 09:43:38 +0100
Subject: make better comments

---
 liblali.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/liblali.c b/liblali.c
index 54c4bfd..e8bf1cc 100644
--- a/liblali.c
+++ b/liblali.c
@@ -1174,6 +1174,7 @@ Object *primitiveJoin(Object **args, GC_PARAM) {
   strcpy(result, list->car->string);
   char noPrefixNumber[2];
 
+  // the return of number
   if (resType == TYPE_NUMBER) {
     Object *lcar = nil;
     list = list->cdr;
@@ -1197,10 +1198,11 @@ Object *primitiveJoin(Object **args, GC_PARAM) {
     return newNumber(result, GC_ROOTS);
   }
 
+  // continue with copying to result string
   for (; list->cdr != nil; list = list->cdr)
     strcat(result, list->cdr->car->string);
 
-  // the return
+  // continue with return
   if (resType == TYPE_STRING)
     return newString(result, GC_ROOTS);
   else if (resType == TYPE_SYMBOL)
-- 
cgit