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/system_calls.rs
+++ b/src/machine/system_calls.rs
@@ -2494,9 +2494,10 @@ impl Machine {
            }
        };

+        let output = self.machine_st.store(self.machine_st.deref(self.machine_st.registers[3]));
        let atom = self.machine_st.atom_tbl.build_with(&string);
-        self.machine_st.unify_complete_string(atom, self.machine_st.store(self.machine_st.deref(self.machine_st.registers[3])));

+        self.machine_st.unify_complete_string(atom, output);
        Ok(())
    }