cc4531cd1e
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@53 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
14 lines
141 B
Plaintext
14 lines
141 B
Plaintext
|
|
:- object(time(_T)).
|
|
|
|
|
|
:- public(time/1).
|
|
:- mode(time(?integer), zero_or_one).
|
|
|
|
|
|
time(Time) :-
|
|
parameter(1, Time).
|
|
|
|
|
|
:- end_object.
|