add the initialization directive

2019-10-01 16:51:22 -06:00
parent 1ec831b2e2
commit abc7498a42
8 changed files with 92 additions and 46 deletions
--- a/src/prolog/machine/term_expansion.rs
+++ b/src/prolog/machine/term_expansion.rs
@@ -369,8 +369,8 @@ impl MachineState {
        self[temp_v!(2)] = Addr::HeapCell(h);

        let code = vec![call_clause!(ClauseType::Hook(hook), 2, 0, true)];
-
        wam.code_repo.cached_query = code;
+	
        self.query_stepper(
            &mut wam.indices,
            &mut wam.policies,