fix bugs revealed by src/tests/builtins.pl

2021-12-04 23:46:31 -07:00
parent 2b3e43f160
commit cd129e32a7
9 changed files with 30 additions and 28 deletions
--- a/src/machine/machine_state.rs
+++ b/src/machine/machine_state.rs
@@ -966,9 +966,8 @@ impl MachineState {
        loop {
            match self.read(stream, &indices.op_dir) {
                Ok(term_write_result) => {
-                    let term = self.registers[2];
+                    let term = self.store(self.deref(self.registers[2]));
                    unify_fn!(self, heap_loc_as_cell!(term_write_result.heap_loc), term);
-                    let term = self.store(self.deref(term));

                    if self.fail {
                        return Ok(());