From ab80c847145316e61a0c5f651e9cdcbcfd671edf Mon Sep 17 00:00:00 2001 From: Mark Date: Wed, 12 Jul 2023 11:44:41 -0600 Subject: [PATCH] Revert "add stream alias processing to atom_chars/2, atom_codes/2" This reverts commit 811ff652097849bbb05e0e6f51c186d65cd2e236. --- src/machine/system_calls.rs | 27 --------------------------- 1 file changed, 27 deletions(-) diff --git a/src/machine/system_calls.rs b/src/machine/system_calls.rs index c6cf9254..88cdde16 100644 --- a/src/machine/system_calls.rs +++ b/src/machine/system_calls.rs @@ -2181,17 +2181,6 @@ impl Machine { self.machine_st.fail = true; } - (HeapCellValueTag::Cons, ptr) => { - match_untyped_arena_ptr!(ptr, - (ArenaHeaderTag::Stream, stream) => { - let alias = stream.options().get_alias().unwrap(); - self.machine_st.unify_complete_string(alias, a2); - } - _ => { - unreachable!(); - } - ); - } _ => { unreachable!(); } @@ -2251,22 +2240,6 @@ impl Machine { } } } - (HeapCellValueTag::Cons, ptr) => { - match_untyped_arena_ptr!(ptr, - (ArenaHeaderTag::Stream, stream) => { - let alias = stream.options().get_alias().unwrap(); - - let iter = alias.chars() - .map(|c| fixnum_as_cell!(Fixnum::build_with(c as i64))); - - let h = iter_to_heap_list(&mut self.machine_st.heap, iter); - unify!(self.machine_st, heap_loc_as_cell!(h), self.machine_st.registers[2]); - } - _ => { - unreachable!(); - } - ); - } _ => { unreachable!(); } -- 2.54.0