correct mishandled Addr::CharCode case in eq_test (#505)

2020-05-15 22:51:18 -06:00
parent b60561c3bb
commit 510530973c
2 changed files with 60 additions and 58 deletions
--- a/src/prolog/machine/machine_state_impl.rs
+++ b/src/prolog/machine/machine_state_impl.rs
@@ -1959,12 +1959,14 @@ impl MachineState {
                (Addr::CharCode(n1), v2) | (v2, Addr::CharCode(n1)) => {
                    if let Ok(n2) = Number::try_from((v2, &self.heap)) {
                        if let Some(n2) = n2.to_u32() {
-                            if n1 != n2 {
+                            if n1 == n2 {
+                                continue;
+                            }
+                        }
+                    }
+
                    return true;
                }
-                        }
-                    }
-                }
                (a1, a2) => {
                    if let Ok(n1) = Number::try_from((a1, &self.heap)) {
                        if let Ok(n2) = Number::try_from((a2, &self.heap)) {