fix bug in dif

1 files 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) {