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