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