current_pred again

2016-01-31 23:11:49 +00:00 · 2016-01-31 23:11:49 +00:00 · 9b38290b8c
commit 9b38290b8c
parent f031e78def
1 changed files with 4 additions and 5 deletions
--- a/C/stdpreds.c
+++ b/C/stdpreds.c
@ -863,12 +863,11 @@ static Int cont_current_predicate(USES_REGS1) {
          if (task != TermUser) {        
            ModEntry *m = Yap_GetModuleEntry(TermProlog);
            pp = firstModulePred(m->PredForME, task);
-            if (!pp)
-              cut_fail(); 
+            if (!pp) {
+              cut_fail();
+            }
          } 
-        } else {
-          cut_fail();            
-        }
+      }
    }
    npp = firstModulePred(pp, task);