Anonymous user
Polymorphic copy: Difference between revisions
m
→{{header|Forth}}
m (→{{header|Python}}: <pre>) |
|||
Line 695:
<lang forth>include FMS-SI.f
:class T
ivar container \ can contain an object of any type
:m put ( obj -- ) container ! ;m
:m init:
:m print ." class is T" ;m
:m print-container container @ print ;m
|