5345523da3
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@561 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
1 line
185 B
Plaintext
1 line
185 B
Plaintext
|
|
:- object(portability).
|
|
|
|
|
|
:- public(predicate/0).
|
|
|
|
|
|
predicate :-
|
|
compare(Result, first, second),
|
|
retractall(result(Result, _)),
|
|
sort([], []),
|
|
consult(file).
|
|
|
|
|
|
:- end_object.
|