From bd02e1a8904c47a70e050f06c83d0849948df7e7 Mon Sep 17 00:00:00 2001
From: Daniel Cerqueira <dan.git@lispclub.com>
Date: Mon, 23 Jun 2025 18:46:00 +0100
Subject: fix bug in dif

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

diff --git a/liblali.c b/liblali.c
index 9fc2cdb..ab5463a 100644
--- a/liblali.c
+++ b/liblali.c
@@ -852,12 +852,12 @@ Object *primitiveAtom(Object **args, GC_PARAM) {
 Object *primitiveDif(Object **args, GC_PARAM) {
   Object *first = (*args)->car, *second = (*args)->cdr->car;
 
-  /* if (first->type == TYPE_NUMBER && second->type == TYPE_NUMBER) */
-  /*   return (first->number != second->number) ? t : f; */
-  if (first->type == TYPE_STRING && second->type == TYPE_STRING)
+  if ((first->type == TYPE_NUMBER && second->type == TYPE_NUMBER) ||
+      (first->type == TYPE_STRING && second->type == TYPE_STRING) ||
+      (first->type == TYPE_SYMBOL && second->type == TYPE_SYMBOL))
     return strcmp(first->string, second->string) ? t : f;
   else
-    return (first != second) ? t : f;
+    return t;
 }
 
 Object *primitiveCar(Object **args, GC_PARAM) {
-- 
cgit