2026-02-01 16:33:20 -08:00
|
|
|
function deep_copy(object o)
|
|
|
|
|
object res
|
|
|
|
|
if atom(o) then
|
|
|
|
|
res = o
|
|
|
|
|
else
|
|
|
|
|
res = repeat(' ',length(o))
|
|
|
|
|
for i=1 to length(o) do
|
|
|
|
|
res[i] = deep_copy(o[i])
|
|
|
|
|
end for
|
|
|
|
|
end if
|
|
|
|
|
return res
|
|
|
|
|
end function
|
2023-07-01 11:58:00 -04:00
|
|
|
|
2026-02-01 16:33:20 -08:00
|
|
|
object c = deep_copy(b)
|
|
|
|
|
?c
|
