gall: fix bug in put:of-farm

This commit is contained in:
pkova 2023-12-18 19:05:59 +02:00
parent 20bda27aaf
commit 1effda7a77

View File

@ -157,10 +157,9 @@
`farm(q (~(put by q.farm) path plot))
?~ path
`farm(p `plot)
?~ nex=(~(get by q.farm) i.path)
~
=/ nex (~(get by q.farm) i.path)
=/ res
$(path t.path, farm u.nex)
$(path t.path, farm ?~(nex *^farm u.nex))
?~ res ~
`farm(q (~(put by q.farm) i.path u.res))
::