RosettaCodeData/Task/Deepcopy/Tcl/deepcopy-2.tcl

2 lines
44 B
Tcl

set copiedObject [oo::copy $originalObject]