urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-14 20:02:51 +03:00
Code Issues Packages Projects Releases Wiki Activity

Cleanup +find-or-create-ship-state

Browse Source
This commit is contained in:
Ted Blackman 2018-03-16 04:09:14 -07:00
parent 846439b88d
commit 164504d0a1
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lib/ford-turbo.hoon
View File

@ -1044,14 +1044,18 @@
::+|
::
++ this .
:: +find-or-create-ship-state: find or create a ford-state for a @p
::
:: Accesses and modifies :state-by-ship.
::
++ find-or-create-ship-state
|= our=@p
^- [ford-state _state-by-ship]
::
=/ existing (~(get by state-by-ship) our)
?^ existing [u.existing state-by-ship]
=? state-by-ship
!(~(has by state-by-ship) our)
(~(put by state-by-ship) our *ford-state)
[(~(got by state-by-ship) our) state-by-ship]
?^ existing
[u.existing state-by-ship]
::
=| new-state=ford-state
[new-state (~(put by state-by-ship) our new-state)]
--