call UDI at abolish.

C/cdmgr.c

@@ -2633,6 +2633,9 @@ p_endconsult( USES_REGS1 )
 static void
 purge_clauses(PredEntry *pred)
 {
+  if (pred->PredFlags & UDIPredFlag) {
+    Yap_udi_abolish(pred);
+  }
   if (pred->cs.p_code.NOfClauses) {
     if (pred->PredFlags & IndexedPredFlag)
       RemoveIndexation(pred);

C/udi.c

@@ -148,6 +148,13 @@ Yap_udi_search(PredEntry *p)
   return info->functions->search(info->cb);
 }
 
+/* index, called from absmi.c */
+void
+Yap_udi_abolish(PredEntry *p)
+{
+  /* tell the predicate destroy */
+}
+
 void
 Yap_udi_init(void)
 {