diff --git a/arvo/hoon.hoon b/arvo/hoon.hoon index 1888cf56e..da3140d4c 100644 --- a/arvo/hoon.hoon +++ b/arvo/hoon.hoon @@ -341,7 +341,7 @@ == :: ++ unce |* a=_,* :: change part $%([%& p=@ud] [%| p=(list a) q=(list a)]) :: -++ unit |* a=$+(* *) :: maybe +++ unit |* a=_,* :: maybe $|(~ [~ u=a]) :: ++ upas :: tree change (%d) $& [p=upas q=upas] :: cell @@ -3162,16 +3162,6 @@ ?. &(?=(^ gat) ?=(^ +.gat)) [%2 ~] (mink [[-.gat [sam +>.gat]] -.gat] sky) -:: -++ myng - |= [gat=* sam=*] - ^- (each ,* (list tank)) - =+ ton=(mong [gat sam] |=(* ~)) - ?- -.ton - %0 [%& p.ton] - %1 [%| (turn p.ton |=(a=* (smyt (path a))))] - %2 [%| p.ton] - == :::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :: section 2eO, diff (move me) :: :: @@ -4089,7 +4079,6 @@ ++ onan |=(vix=vise (seer vix)) ++ rain |= [bon=path txt=@] - ^- twig =+ vaz=vast ~| bon (scan (trip txt) (full (ifix [gay gay] tall:vaz(wer bon)))) diff --git a/arvo/zuse.hoon b/arvo/zuse.hoon index fbce2843f..9fc0c3438 100644 --- a/arvo/zuse.hoon +++ b/arvo/zuse.hoon @@ -1178,21 +1178,6 @@ == -- :: -++ feel :: simple file write - |= [pax=path val=*] !: - ^- miso - =+ dir=((hard arch) .^(%cy pax)) - ?~ q.dir [%ins val] - :- %mut - ^- udon - [%a %a .^(%cx pax) val] -:: -++ file :: simple file load - |= pax=path - ^- (unit) - =+ dir=((hard arch) .^(%cy pax)) - ?~(q.dir ~ [~ .^(%cx pax)]) -:: ++ glam |= zar=@p ^- tape %+ snag zar