From 081661cb6b0c2932a1e7e1d16860942fa7f9f195 Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Wed, 1 Nov 2023 17:52:58 +0000
Subject: Fixed bug with comparators where all results were flipped

This is because: say we have {a, b} where a is on top of the stack.  A
comparator C applies in the order C(b, a) i.e. b `C` a.  The previous
version did a `C` b which was wrong.
---
 vm/runtime.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'vm')

diff --git a/vm/runtime.c b/vm/runtime.c
index 3279354..fd26024 100644
--- a/vm/runtime.c
+++ b/vm/runtime.c
@@ -655,7 +655,7 @@ VM_NOT_TYPE(word, WORD)
     err = vm_pop_##TYPEL(vm, &b);                                 \
     if (err)                                                      \
       return err;                                                 \
-    return vm_push_byte(vm, DBYTE(a.as_##GETL COMP b.as_##GETL)); \
+    return vm_push_byte(vm, DBYTE(b.as_##GETL COMP a.as_##GETL)); \
   }
 
 VM_BITWISE_TYPE(or, |, byte, BYTE)
-- 
cgit v1.2.3-13-gbd6f