arvo: removes $curd, moves $card and $ovum to top level
+| %interface
::
:: $ball: dynamic kernel action
-:: $curd: tagged, untyped event
+:: $card: tagged, untyped event
:: $duct: causal history
:: +hobo: %soft task builder
:: $goof: crash label and trace XX fail/ruin/crud/flaw/lack/miss
:: +wite: kernel action/error builder
::
+$ ball (wite [vane=term task=maze] maze)
-+$ curd (cask)
++$ card (cask)
+$ duct (list wire)
++ hobo
|$ [a]
(pair cord (each * (list mass)))
+$ monk (each ship (pair @tas @ta))
+$ move [=duct =ball]
-+$ ovum (pair wire curd)
++$ ovum [=wire =card]
::
+$ roof (room vase) :: namespace
+$ rook (room meta) :: meta-namespace
:: $hoof: hoon source
:: $news: collated updates
:: $oped: module updates
+ :: $seed: next kernel source
::
- :: XX replace top-level structures
- ::
- +$ card (cask)
- +$ ovum [=wire =card]
+$ hoof @t
+$ news
$: :: sys: installs + replacements
?~ wire.ovum
~>(%mean.'pith: bad wire' !!)
::
- ?. ?=(?(%crud %wack %wyrd) -.card.ovum)
+ ?. ?=(?(%crud %wack %wyrd) p.card.ovum)
(emit $/~ [*duct (gest ovum)] ~)
::
=/ buz ~> %mean.'pith: bad wasp'
now.sol now
==
::
- ~| poke+-.q.ovo
+ ~| poke/p.card.ovo
=/ zef=(each (pair (list ovum) soul) (trap ^))
loop:(~(poke le:part [pit vil] sol) ovo)
?- -.zef
|= [now=@da ovo=ovum]
^- ^
=/ wip
- ~| [p.ovo p.q.ovo]
+ ~| poke/p.card.ovo
~> %mean.'arvo: bad wisp'
- ;;(wisp q.ovo)
+ ;;(wisp card.ovo)
::
=. ..poke
|- ^+ ..poke
