Revert "add stream alias processing to atom_chars/2, atom_codes/2"

This reverts commit 811ff652097849bbb05e0e6f51c186d65cd2e236.

diff --git a/src/machine/system_calls.rs b/src/machine/system_calls.rs
index c6cf925439978ebc12115780b082899804f3ca3e..88cdde1698fa1d6e9445afe4049cac8f0b241598 100644 (file)
--- 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!();
             }