summaryrefslogtreecommitdiff
path: root/liblali.c
diff options
context:
space:
mode:
Diffstat (limited to 'liblali.c')
-rw-r--r--liblali.c8
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) {