Merge remote-tracking branch 'origin/ixv/settings-existence-scry'

This commit is contained in:
Liam Fitzgerald 2021-02-19 12:47:47 +10:00
commit fab9a47a92
No known key found for this signature in database
GPG Key ID: D390E12C61D1CFFB

View File

@ -93,6 +93,18 @@
=/ entry=(unit val) (~(get by bucket) key)
?~ entry [~ ~]
``settings-data+!>(entry+u.entry)
::
[%x %has-bucket @ ~]
=* buc i.t.t.pax
=/ has-bucket=? (~(has by settings) buc)
``noun+!>(has-bucket)
::
[%x %has-entry @ @ ~]
=* buc i.t.t.pax
=* key i.t.t.t.pax
=/ =bucket (fall (~(get by settings) buc) ~)
=/ has-entry=? (~(has by bucket) key)
``noun+!>(has-entry)
==
::
++ on-agent on-agent:def