9 lines
175 B
Text
9 lines
175 B
Text
:- object(class,
|
|
instantiates(metaclass)).
|
|
|
|
:- public(my_class/1).
|
|
my_class(Class) :-
|
|
self(Self),
|
|
instantiates_class(Self, Class).
|
|
|
|
:- end_object.
|