Revert to previous hoon and zuse.

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))))

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