unify partial string tail later in create_partial_string (#1462, #1465, #1427)

2022-05-08 14:52:22 -06:00
parent 4895cb7b22
commit 2dfa108034
2 changed files with 3 additions and 2 deletions
--- a/src/machine/system_calls.rs
+++ b/src/machine/system_calls.rs
@@ -1460,7 +1460,8 @@ impl Machine {
        unify!(self.machine_st, self.machine_st.registers[2], pstr_loc_as_cell!(pstr_h));

        if !self.machine_st.fail {
-            self.machine_st.bind(Ref::heap_cell(pstr_h+1), self.machine_st.registers[3]);
+            let tail = self.machine_st.registers[3];
+            unify!(self.machine_st, tail, heap_loc_as_cell!(pstr_h+1));
        }
    }