fix #457: -10.0 < 20 returns 0 instead of 1

Author: tavmem

src/kg.c

@@ -37,21 +37,21 @@ I FC(F a, F b)//Floating-Point Compare
 #else
   {
     // adaptive ULP
-    union {I i;F f;} x,y;I xu,d,ad;
+    union {I i;F f;} x,y;I xu,ad;
     x.f=a;y.f=b;xu=x.i|y.i;
     if(Inan(x.i))R Inan(y.i)?0:-1;
     else if(x.i<0)x.i=LLONG_MIN-x.i;
     if(Inan(y.i))R 1;
     else if(y.i<0)y.i=LLONG_MIN-y.i;
-    ad=llabs(d=x.i-y.i);
+    ad=llabs(x.i-y.i);
     if(ad<1023){
-      if(Isubn(xu))R d<0?-1:d?1:0;
+      if(Isubn(xu))R x.i<y.i?-1:x.i!=y.i?1:0;
       if(ad<513)R 0;
       // sxxx xxxx xxxx uuuu uuuu ....
       xu=513+((255&(xu>>44))<<1);
       if(ad<xu)R 0;
     }
-    R d<0?-1:1;
+    R x.i<y.i?-1:1;
   }
 #endif
 }

src/tests.c

@@ -747,6 +747,9 @@ Z I tests02()
   TC(("";"";"";""), "a"\"aaa")
   TC_("x:.+(`a`b;1 2); y:x; f:{.[x;,`a;:;11]}; f`y; x",".+(`a`b;1 2)")
   TC_("x:.+(`a`b;1 2); y:x; f:{.[x;,`a;:;11]}; f`y; y",".+(`a`b;11 2)")
+  TC(1, -20<10)
+  TC(1, -20.0<10.0)
+  TC(1, -10.0<20)
 #ifdef K3_ARITH
   TC(0i, 0i+0i)                           // plus
   TC(0i, 0i+0I)