From ecebaf8216052359af8107b84bc05030fc24ef23 Mon Sep 17 00:00:00 2001 From: Mark Thom Date: Tue, 8 Mar 2022 18:25:40 -0700 Subject: [PATCH] unify empty list to '' in atom_chars/2 (#1334, #1336) --- src/machine/system_calls.rs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/machine/system_calls.rs b/src/machine/system_calls.rs index 8dc8d4e8..c435503d 100644 --- a/src/machine/system_calls.rs +++ b/src/machine/system_calls.rs @@ -1288,7 +1288,11 @@ impl Machine { if let Some(str_like) = self.machine_st.value_to_str_like(a2) { let atom = match str_like { AtomOrString::Atom(atom) => { - atom + if atom == atom!("[]") { + self.machine_st.atom_tbl.build_with("") + } else { + atom + } } AtomOrString::String(string) => { self.machine_st.atom_tbl.build_with(&string) -- 2.54.0