add expand_term/2

2018-10-15 20:07:22 -06:00
parent 24a7206021
commit eabb851d8c
4 changed files with 10 additions and 1 deletions
--- a/src/prolog/machine/system_calls.rs
+++ b/src/prolog/machine/system_calls.rs
@@ -190,7 +190,7 @@ impl MachineState {
    pub(super) fn system_call(&mut self, ct: &SystemClauseType,
                              indices: &IndexStore,
                              call_policy: &mut Box<CallPolicy>,
-                              cut_policy:  &mut Box<CutPolicy>,)
+                              cut_policy:  &mut Box<CutPolicy>)
                              -> CallResult
    {
        match ct {
@@ -202,6 +202,10 @@ impl MachineState {
                    _ => self.fail = true
                };
            },
+            &SystemClauseType::ExpandTerm => {
+                self.p = CodePtr::Local(LocalCodePtr::UserTermExpansion(0));
+                return Ok(());
+            },
            &SystemClauseType::GetDoubleQuotes => {
                let a1 = self[temp_v!(1)].clone();