add arg

2018-05-12 01:21:31 -06:00
parent 7455c2e9db
commit 0951bcff58
4 changed files with 13 additions and 8 deletions
--- a/src/prolog/machine/machine_state.rs
+++ b/src/prolog/machine/machine_state.rs
@@ -511,7 +511,7 @@ pub(crate) trait CallPolicy: Any {
                let result = machine_st.arith_eval_by_metacall(temp_v!(2))?;

                machine_st.unify(a, Addr::Con(Constant::Number(result)));
-                machine_st.p += 1;
+                machine_st.p += 1; // TODO: change this!!

                Ok(())
            },