aqua: address joe review

This commit is contained in:
Liam Fitzgerald 2021-07-26 15:26:49 +10:00
parent 2e6057c952
commit 3417927aef
No known key found for this signature in database
GPG Key ID: D390E12C61D1CFFB
5 changed files with 12 additions and 29 deletions

View File

@ -38,7 +38,7 @@
==
:: XX temporarily shadowed, fix and remove
::
+$ pill boot-pill:pill-lib
+$ pill pill:pill-lib
::
+$ fleet [ships=(map ship pier) azi=az-state]
+$ pier
@ -82,7 +82,7 @@
=^ cards state
?+ mark ~|([%aqua-bad-mark mark] !!)
%aqua-events (poke-aqua-events:ac !<((list aqua-event) vase))
%boot-pill (poke-pill:ac !<(pill vase))
%pill (poke-pill:ac !<(pill vase))
%noun (poke-noun:ac !<(* vase))
%azimuth-action (poke-azimuth-action:ac !<(azimuth-action vase))
==
@ -370,6 +370,7 @@
++ poke-pill
|= p=pill
^- (quip card:agent:gall _state)
?< ?=(%ivory -.p)
=. this apex-aqua =< abet-aqua
=. pil p
~& lent=(met 3 (jam boot-ova.pil))
@ -514,7 +515,7 @@
:~
:~ [/ %wack 0] :: eny
:: [/ %verb `|] :: possible verb
:^ / %wyrd [%nonce /a-version] :: dummy runtime version + nonce
:^ / %wyrd [~.nonce /aqua] :: dummy runtime version + nonce
^- (list (pair term @))
:~ zuse+zuse
lull+lull

View File

@ -13,7 +13,7 @@
~
==
:- %boot-pill
^- boot-pill:pill
^- pill:pill
::
:: sys: root path to boot system, `/~me/[desk]/now/sys`
::

View File

@ -16,7 +16,7 @@
dub=_|
==
:- %boot-pill
^- boot-pill:pill
^- pill:pill
:: sys: root path to boot system, `/~me/[desk]/now/sys`
::
=/ sys=path

View File

@ -5,15 +5,12 @@
::
+$ pill
$% [%ivory p=(list)]
boot-pill
==
::
+$ boot-pill
$: %pill
nam=term
boot-ova=(list)
kernel-ova=(list unix-event)
userspace-ova=(list unix-event)
$: %pill
nam=term
boot-ova=(list)
kernel-ova=(list unix-event)
userspace-ova=(list unix-event)
==
==
::
+$ unix-event

View File

@ -1,15 +0,0 @@
::
:::: /hoon/boot-pill/mar
::
/+ *pill
|_ pil=boot-pill
++ grow
|%
++ noun pil
--
++ grab
|%
++ noun boot-pill
--
++ grad %noun
--