3455276aa2
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1487 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
22 lines
300 B
Plaintext
22 lines
300 B
Plaintext
|
|
:- object(metaclass, % avoid infinite metaclass regression by
|
|
instantiates(metaclass)). % making the class its own metaclass
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(class,
|
|
instantiates(metaclass)).
|
|
|
|
:- public(p1/1).
|
|
|
|
p1(class).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(instance,
|
|
instantiates(class)).
|
|
|
|
:- end_object.
|