This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/Logtalk/examples/mi/time1.lgt
2001-06-06 19:40:57 +00:00

14 lines
141 B
Plaintext

:- object(time(_T)).
:- public(time/1).
:- mode(time(?integer), zero_or_one).
time(Time) :-
parameter(1, Time).
:- end_object.