RosettaCodeData/Task/Polymorphic-copy/Factor/polymorphic-copy.factor

9 lines
184 B
Factor

USING: classes kernel prettyprint serialize ;
TUPLE: A ;
TUPLE: C < A ;
: serial-clone ( obj -- obj' ) object>bytes bytes>object ;
C new
[ clone ]
[ serial-clone ] bi [ class . ] bi@