add length, =.., more tests of builtins.

2018-01-27 15:37:59 -07:00
parent f939a9e129
commit 4f645b4664
7 changed files with 246 additions and 4 deletions
--- a/src/prolog/ast.rs
+++ b/src/prolog/ast.rs
@@ -820,7 +820,7 @@ pub enum ControlInstruction {
    FunctorExecute,
    JmpByCall(usize, usize),    // arity, global_offset.
    JmpByExecute(usize, usize), 
-    // GotoCall(usize, usize),    // p, arity.
+    GotoCall(usize, usize),    // p, arity.
    GotoExecute(usize, usize), // p, arity.
    IsCall(RegType, ArithmeticTerm),
    IsExecute(RegType, ArithmeticTerm),
@@ -848,6 +848,7 @@ impl ControlInstruction {
            &ControlInstruction::FunctorExecute => true,
            &ControlInstruction::ThrowCall => true,
            &ControlInstruction::ThrowExecute => true,
+            &ControlInstruction::GotoCall(..) => true,            
            &ControlInstruction::GotoExecute(..) => true,
            &ControlInstruction::Proceed => true,
            &ControlInstruction::IsCall(..) => true,