add stub for SWI compat

library/CMakeLists.txt

@@ -15,6 +15,7 @@ set (LIBRARY_PL
   dbqueues.yap
   dbusage.yap
   dgraphs.yap
+  error.yap
   exo_interval.yap
   expand_macros.yap
   gensym.yap

library/ytest.yap

@@ -6,11 +6,15 @@
                    op(995, xfx, given),
                    op(990, xfx, returns)] ).
 
+:-      (current_op(X,Y,O), write(M0:O), fail:nl).
+
 :- use_module( library(clauses) ).
 :- use_module( library(maplist) ).
 :- use_module( library(gensym) ).
 :- use_module( library(lists) ).
 
+:-      (current_op(X,Y,O), write(M0:O), fail:nl).
+
 :- multifile test/1.
 
 :- dynamic error/3, failed/3.

library/ytest/preds.yap

@@ -9,7 +9,7 @@
     ->
      Flags1 = 0x200000
     ).
-'$predicate_flags'(P, M, Flags0, Flags1) :-
+'$predicate_flags'(_P, _M, Flags0, Flags1) :-
     ( Flags1 /\ 0x200000 =\= 0,
       Flags0 /\ 0x200000 =:= 0
     ->
@@ -23,7 +23,7 @@
     predicate_property(M:G, imported_from(M0)), !.
 '$get_undefined_pred'(G,M,G,OM) :-
     functor(G,F,N),
-    ( system_predicate(F/N), OM = prolog ; current_predicate(user:F/N), OM= user),  !.
+    ( system_predicate(F/N), OM = prolog ; current_predicate(M:F/N), OM= user),  !.
 '$get_undefined_pred'(G,M,G,M0) :-
     predicate_property(M:G, imported_from(M0)), !.
 '$get_undefined_pred'(G,M,G,M).