userspace: addressed TODOs and made %link-store compile

This commit is contained in:
Logan Allen 2020-09-14 14:49:41 -05:00
parent 4b26b2dd71
commit 1f02c594a8
3 changed files with 12 additions and 5 deletions

View File

@ -29,9 +29,12 @@
++ on-load
|= =vase
^- (quip card _this)
:: TODO: get rid of all subscriptions in bowl
:_ this
[%pass /groups %agent [our.bowl %group-store] %leave ~]~
:- [%pass /groups %agent [our.bowl %group-store] %leave ~]
%+ turn ~(tap in ~(key by wex.bowl))
|= [=wire =ship =term]
^- card
[%pass wire %agent [ship term] %leave ~]
::
++ on-agent on-agent:def
++ on-poke on-poke:def

View File

@ -27,9 +27,13 @@
++ on-load
|= old-vase=vase
^- (quip card _this)
:: TODO: get rid of all subscriptions in bowl
=/ paths
%+ turn ~(val by sup.bowl)
|=([=ship =path] path)
:_ this
[%pass /groups %agent [our.bowl %group-store] %leave ~]~
:- [%pass /groups %agent [our.bowl %group-store] %leave ~]
?~ paths ~
[%give %kick paths ~]~
::
++ on-watch on-watch:def
++ on-leave on-leave:def

View File

@ -150,7 +150,7 @@
::
++ on-bad-path
|= [=path =links]
^- (unit card)
^- (list card)
~| discarding-malformed-links+[path links]
~
::