shithub: femtolisp

Info  •  Files  •  Log  •  Branches

fixing a bug in character-number comparison

--- a/femtolisp/equal.c

+++ b/femtolisp/equal.c

@@ -79,10 +79,13 @@

             return bounded_vector_compare(a, b, bound, eq);

         break;

     case TAG_CPRIM:

-        if (cp_class((cprim_t*)ptr(a)) == wchartype &&

-            (!iscprim(b) ||

-             cp_class((cprim_t*)ptr(b)) != wchartype))

-            return fixnum(-1);

+        if (cp_class((cprim_t*)ptr(a)) == wchartype) {

+            if (!iscprim(b) || cp_class((cprim_t*)ptr(b)) != wchartype)

+                return fixnum(-1);

+        }

+        else if (iscprim(b) && cp_class((cprim_t*)ptr(b)) == wchartype) {

+            return fixnum(1);

+        }

         c = numeric_compare(a, b, eq, 1, NULL);

         if (c != 2)

             return fixnum(c);