Anonymous user
Polymorphic copy: Difference between revisions
→{{header|Forth}}
Line 688:
:class T <super object
ivar container \ can
:m put ( obj -- ) container ! ;m
:m init: [self] [self] put ;m \ initially container holds self
|
Line 688:
:class T <super object
ivar container \ can
:m put ( obj -- ) container ! ;m
:m init: [self] [self] put ;m \ initially container holds self
|