Added emulation of the =@=/2 predicate to the SWI-Prolog compatibility library.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1891 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2007-06-02 15:37:50 +00:00
parent 24ade76e94
commit 211e5cec2b
2 changed files with 13 additions and 1 deletions
--- a/library/swi.yap
+++ b/library/swi.yap
@@ -20,7 +20,8 @@

 :- use_module(library(terms),[term_variables/2,
 			      term_variables/3,
-			      term_hash/2]).
+			      term_hash/2,
+			      variant/2]).

 :- multifile
   prolog:message/3.
@@ -238,3 +239,7 @@ prolog:intersection([_|T], L, R) :-
 	prolog:intersection(T, L, R).


+:- op(700, xfx, '=@=').
+
+prolog:(Term1 =@= Term2) :-
+	variant(Term1, Term2), !.