fix excessive trimming in C-interface for backtrackable predicates (obs from José Vieira).

C/c_interface.c

@@ -1027,13 +1027,14 @@ YAP_cut_up(void)
 
     cut_pt = B->cp_b;
     CUT_prune_to(cut_pt);
+    Yap_TrimTrail();
     B = cut_pt;
   }
-#else	/* YAPOR */
+#else
+  Yap_TrimTrail();
   B = B->cp_b;  /* cut_fail */
 #endif
   HB = B->cp_h; /* cut_fail */
-  Yap_TrimTrail();
 
   RECOVER_B();
 }

library/tries/tries.c

@@ -387,7 +387,6 @@ static int p_trie_traverse_init(void) {
 
   /* traverse trie */
   if (!(data = trie_traverse_init((TrEntry) YAP_IntOfTerm(arg_trie), (TrData) YAP_IntOfTerm(arg_init_ref)))) {
-    printf("cut fail no init!!!\n");
     YAP_cut_fail();
     return FALSE;
   }