M scripts/test.hex → scripts/test.hex

@@ -189,7 +189,7 @@ (("aaa" 0x5) ("aaa" 0x5 0x4) >= 0x0 ==)
     ;100
 
     ((test "aaa") (test "aaa" 0x5) < 0x1 ==) 
-    (("aaa" 0x5) ("" "aaa" 0x5) <= 0x0 ==)
+    (("aaa" 0x5) ("" "aaa" 0x5) <= 0x1 ==)
     (("a" "b" and) (error) try "[symbol and] Two integers required" ==)
     ((0x1 "a" or) (error) try "[symbol or] Two integers required" ==)
     ;104

M src/symbols.c → src/symbols.c

@@ -962,7 +962,7 @@ return 1;
     }
     hex_item_t *pa = &a;
     hex_item_t *pb = &b;
-    hex_push_integer(ctx, !hex_greater(ctx, pb, pa, "<") || hex_equal(a, b));
+    hex_push_integer(ctx, hex_greater(ctx, pb, pa, "<") || hex_equal(a, b));
     return 0;
 }