From 56e9a8f8d93c89a20e0a3324bc0338dd2da06711 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Fri, 26 Feb 2016 18:25:07 +0000
Subject: [PATCH] add stub for SWI compat

---
 library/CMakeLists.txt  | 1 +
 library/ytest.yap       | 4 ++++
 library/ytest/preds.yap | 4 ++--
 3 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/library/CMakeLists.txt b/library/CMakeLists.txt
index 0b717b356..8a1d84b81 100644
--- a/library/CMakeLists.txt
+++ b/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
diff --git a/library/ytest.yap b/library/ytest.yap
index 0b7a60f72..973b63286 100644
--- a/library/ytest.yap
+++ b/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.
diff --git a/library/ytest/preds.yap b/library/ytest/preds.yap
index 245a725f4..a51c6c739 100644
--- a/library/ytest/preds.yap
+++ b/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).