write infinite terms

2018-08-09 16:42:43 +01:00
parent d5c1ca716e
commit ecab37f72c
8 changed files with 43 additions and 16 deletions
--- a/C/exec.c
+++ b/C/exec.c
@@ -1615,6 +1615,8 @@ void Yap_fail_all(choiceptr bb USES_REGS) {
  saved_p = P;
  saved_cp = CP;
  /* prune away choicepoints */
+  if (B == bb)
+    return;
  while (B->cp_b && B->cp_b != bb && B->cp_ap != NOCODE) {
    B = B->cp_b;
 #ifdef YAPOR