add cyclic_term

2018-03-28 23:41:19 -06:00
parent ef65c996ec
commit 7b160199fd
9 changed files with 72 additions and 41 deletions
--- a/src/prolog/macros.rs
+++ b/src/prolog/macros.rs
@@ -734,6 +734,12 @@ macro_rules! acyclic_term_execute {
    )
 }

+macro_rules! cyclic_term_execute {
+    () => (
+        Line::Control(ControlInstruction::CallClause(ClauseType::CyclicTerm, 1, 0, true))
+    )
+}
+
 macro_rules! return_from_clause {
    ($lco:expr, $machine_st:expr) => {{
        if $lco {