urbit/gen/womb/balance.hoon
2016-10-21 16:44:39 -07:00

14 lines
347 B
Plaintext

:: Inspect invite contents
::
:::: /hoon/balance/womb/gen
::
/? 310
/+ womb
:- %say
|= $: {now/@da eny/@uvJ bec/beak}
{pas/@uvG $~}
who/(unit @p)
==
=- [%womb-balance .^(balance:womb %gx /[him]/hood/[cas]/womb/balance/[key]/womb-balance)]
[him=(scot %p ?^(who u.who p.bec)) cas=(scot %da now) key=(scot %uv pas)]