recognize [] as equivalent to "" in unify_atom (#1288)

2022-02-22 23:45:04 -07:00
parent 1b91663244
commit d92d8bce89
2 changed files with 5 additions and 1 deletions
--- a/src/machine/machine_state_impl.rs
+++ b/src/machine/machine_state_impl.rs
@@ -544,6 +544,9 @@ impl MachineState {
            (HeapCellValueTag::Atom, (name, arity)) => {
                self.fail = !(arity == 0 && name == atom);
            }
+            (HeapCellValueTag::CStr, cstr_atom) if atom == atom!("[]") => {
+                self.fail = cstr_atom != atom!("");
+            }
            (HeapCellValueTag::Char, c1) => {
                if let Some(c2) = atom.as_char() {
                    self.fail = c1 != c2;