RosettaCodeData/Task/Call-an-object-method/Logtalk/call-an-object-method-1.log...

11 lines
207 B
Plaintext

% avoid infinite metaclass regression by
% making the metaclass an instance of itself
:- object(metaclass,
instantiates(metaclass)).
:- public(me/1).
me(Me) :-
self(Me).
:- end_object.