distinguish eq from structural_eq on strings

This commit is contained in:
Mark Thom
2018-09-03 00:06:01 -06:00
parent abcb53699a
commit c5fd13dfa0
9 changed files with 80 additions and 63 deletions

View File

@@ -34,13 +34,12 @@ impl<'a> Reader<'a> {
let flags = self.machine_st.machine_flags();
loop {
let mut append_buf = String::new();
let mut append_buf = String::new();
stdin.read_line(&mut append_buf).unwrap();
buffer += append_buf.as_str();
let mut parser = Parser::new(buffer.as_bytes(), self.machine_st.atom_tbl.clone(),
self.machine_st.string_tbl.clone(), flags);
let mut parser = Parser::new(buffer.as_bytes(), self.machine_st.atom_tbl.clone(), flags);
match parser.read_term(op_dir) {
Err(ParserError::UnexpectedEOF) => continue,
@@ -49,7 +48,7 @@ impl<'a> Reader<'a> {
};
}
}
fn push_stub_addr(&mut self) {
let h = self.machine_st.heap.h;
self.machine_st.heap.push(HeapCellValue::Addr(Addr::HeapCell(h)));