fix unify_float

2021-12-11 16:29:26 -07:00
parent 3974b6e6cd
commit 4211151fe6
1 changed files with 11 additions and 3 deletions
--- a/src/machine/machine_state_impl.rs
+++ b/src/machine/machine_state_impl.rs
@@ -667,9 +667,17 @@ impl MachineState {

        read_heap_cell!(value,
            (HeapCellValueTag::F64, f2) => {
-                if *f1 != *f2 {
-                    self.fail = true;
-                }
+                self.fail = **f1 != **f2;
+            }
+            (HeapCellValueTag::Cons, cons_ptr) => {
+                match_untyped_arena_ptr!(cons_ptr,
+                     (ArenaHeaderTag::F64, f2) => {
+                         self.fail = **f1 != **F64Ptr(f2);
+                     }
+                     _ => {
+                         self.fail = true;
+                     }
+                );
            }
            _ => {
                self.fail = true;