diff --git a/arvo/hoon.hoon b/arvo/hoon.hoon index 57f50cb161..c6f9a663a2 100644 --- a/arvo/hoon.hoon +++ b/arvo/hoon.hoon @@ -10332,12 +10332,14 @@ ++ ruck :: update vase |= [pax=path txt=@ta] ^+ +> + =- ?:(?=(%| -.res) ((slog p.res) +>.$) p.res) + ^= res %- mule |. =+ arg=[~2000.1.1 0 =>(~ |+(* ~))] =+ rig=(slym q.sew arg) =+ rev=(slym (slap bud (rain pax txt)) bud) =+ syg=(slym rev arg) ~| %load-lost - +>.$(q.sew (slam (slap syg [%cnzy %load]) (slap rig [%cnzy %stay]))) + +>.^$(q.sew (slam (slap syg [%cnzy %load]) (slap rig [%cnzy %stay]))) :: ++ wink :: deploy |= [now=@da eny=@ ski=slad] @@ -10546,6 +10548,8 @@ :: ++ vint :: create vane |= [lal=@tas vil=vile bud=vase pax=path txt=@ta] :: + =- ?:(?=(%| -.res) ((slog p.res) ~) (some p.res)) + ^= res %- mule |. (vent lal vil bud *worm (slym (slap bud (rain pax txt)) bud)) :: ++ viol :: vane tools @@ -10680,6 +10684,7 @@ :::::: :::::: Postface :::::: :::::: :::::::::::::::::::::::::::::::::::::::::::::::::::::: =+ pit=`vase`!>(.) :: +!: =+ bud=pit :: becomes tang =+ vil=(viol p.bud) :: cached reflexives =| $: lac=? :: laconic bit @@ -10715,7 +10720,7 @@ ?: ?=(%veer -.q.i.ova) $(ova t.ova, +>+.^$ (veer now q.i.ova)) ?: ?=(%vega -.q.i.ova) - (vega now t.ova (path +.q.i.ova)) + (fall (vega now t.ova (path +.q.i.ova)) [~ +>.^$]) ?: ?=(%mass -.q.i.ova) =+ avo=$(ova t.ova) :_ +.avo @@ -10780,7 +10785,9 @@ :: ++ vega :: reboot kernel |= [now=@da ova=(list ovum) hap=path] - ^- [p=(list ovum) q=*] + ^- (unit ,[p=(list ovum) q=*]) + =- ?:(?=(%| -.res) ((slog p.res) ~) `p.res) + ^= res %- mule |. =+ pax=(weld hap `path`[%hoon ~]) ~& [%vega-start hap] =+ src=((hard ,@t) (need (peek now cx/pax))) @@ -10801,17 +10808,22 @@ ++ veer :: install vane/tang |= [now=@da fav=curd] => .(fav ((hard ,[%veer lal=@ta pax=path txt=@t]) fav)) + =- ?:(?=(%| -.res) ((slog p.res) +>.$) p.res) + ^= res %- mule |. ?: =(%$ lal.fav) ~& [%tang pax.fav `@p`(mug txt.fav)] =+ gen=(rain pax.fav txt.fav) =+ vax=(slap pit gen) - +>.$(bud vax) - %_ +> + +>.^$(bud vax) + %_ +>.^$ q.niz |- ^+ q.niz ?~ q.niz ~& [%vane `@tas`lal.fav pax.fav `@p`(mug txt.fav)] - [[lal.fav q.sew:(vint lal.fav vil bud pax.fav txt.fav)] q.niz] + =+ vin=(vint lal.fav vil bud pax.fav txt.fav) + ?~ vin + q.niz + [[lal.fav q.sew:u.vin] q.niz] ?. =(lal.fav p.i.q.niz) [i.q.niz $(q.niz t.q.niz)] ~& [%vane `@tas`lal.fav pax.fav `@p`(mug txt.fav)]