diff options
Diffstat (limited to 'liblali.c')
| -rw-r--r-- | liblali.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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) { |
