New brass pill can do more than fake zods.

gen/brass.hoon

@@ -173,14 +173,20 @@
 ::
 =+  arvo-source=.^(@t %cx (welp sys /arvo/hoon))
 ::
-::  vane-moves: installation actions
+::  boot-ova: startup events
 ::
-=+  ^=  brass-pill
+=+  ^=  boot-ova  ^-  (list *)
-    |^  ^-  (pair (list ovum) ovum)
+    :~  boot-one
-        :-  ::  
+        boot-two
-            ::  vane installation events
+        compiler-formula
+        compiler-source
+        arvo-source
+    ==
 ::
-            :~  ::
+::  module-ova: vane load operations.
+::
+=+  ^=  module-ova  ^-  (list ovum)
+    |^  :~  ::
             ::  sys/zuse: standard library
             ::
             (vent %$ /zuse)
@@ -217,7 +223,17 @@
             ::
             (vent %j /vane/jael)
         ==
-        ::  userspace ovum:
+    ::
+    ++  vent
+      |=  {abr/term den/path}
+      =+  pax=(weld sys den)
+      =+  txt=.^(@ %cx (welp pax /hoon))
+      `ovum`[[%vane den] [%veer abr pax txt]]
+    --
+::
+::  file-ovum: userspace filesystem load
+::
+=+  ^=  file-ovum  ^-  ovum
     ::
     ::    /app    %gall applications
     ::    /gen    :dojo generators
@@ -229,9 +245,7 @@
     ::    /sys    system files
     ::    /neo    new system files
     ::
-        (user /app /gen /lib /mar /neo /ren /sec /sur /sys /web ~)
+    %.  [/app /gen /lib /mar /neo /ren /sec /sur /sys /web ~]
-    ::                                                  ::  
-    ++  user                                            ::  userspace loading
     |=  ::  sal: all spurs to load from
         ::
         sal/(list spur)
@@ -277,41 +291,4 @@
     ?~  all  hav
     $(all t.all, hav ^$(tyl [p.i.all tyl]))
 ::
-    ++  vent
+[boot-ova module-ova file-ovum]
-      |=  {abr/term den/path}
-      =+  pax=(weld sys den)
-      =+  txt=.^(@ %cx (welp pax /hoon))
-      `ovum`[[%vane den] [%veer abr pax txt]]
-    --
-::
-::  main-events: full events with advancing times
-::
-=.  now  ~2017.3.1
-=+  ^=  main-events
-    |-  ^-  (list (pair @da ovum))
-    ?~  main-moves  ~
-    :-  [now i.main-moves]
-    $(main-moves t.main-moves, now (add now (bex 48)))
-::
-~?  try
-  ~&  %metal-testing
-  =+  ^=  yop
-      ^-  @p
-      %-  mug
-      .*  :*  boot-one
-              boot-two
-              compiler-formula
-              compiler-source
-              arvo-source
-              main-events
-          ==
-      [2 [0 3] [0 2]]
-  [%metal-tested yop]
-::
-:*  boot-one
-    boot-two
-    compiler-formula
-    compiler-source
-    arvo-source
-    main-events
-==

gen/walk.hoon

@@ -176,6 +176,10 @@
       |*  {sem/@tas out/{* life}}
       [[sem -.out] +.out]
     ::
+    ++  lede
+      |*  {sem/@tas out/{* life}}
+      [`twig`[sem -.out] +.out]
+    ::
     ++  moan
       (moto nexp)
     ::

sys/hoon.hoon

@@ -8111,60 +8111,6 @@
         {* * *}     [dov $(dom l.dom) $(dom r.dom)]
       ==
     --
-  ::
-  ::  mean: adapt by reference
-  ::
-  ++  mean
-    |=  ref/span
-    =|  $:  ::  ret:  
-            ::
-            re
-    =|  ret/(set (pair span span))
-    =|  wad/(list term)
-    =<  sint
-    |%
-
-    ++  dext
-        ?-    sut
-            $void
-          !!
-            $noun 
-          !!
-            {$atom *}
-          !!
-            {$cell *}
-          !!
-            {$core *}
-          !!
-            {$face *} 
-          !!
-            {$fork *}
-          !!
-            {$help *}
-          !!
-            {$hold *}
-        ==
-    ::
-    ++  sint
-      ?-    ref
-          $noun  
-        sut
-          $void  
-        sut
-          $
-
-      ==
-
-                     ?:  (~(has in gil) [sut ref])  &
-                     %=  dext
-                       sut  repo
-                       seg  (~(put in seg) sut)
-                       gil  (~(put in gil) [sut ref])
-        ==           ==
-        ?-  -.sut
-        
-    |-  ^-  span
-
   ++  meet  |=(ref/span &((nest | ref) (nest(sut ref) | sut)))
   ++  mite  |=(ref/span |((nest | ref) (nest(sut ref) & sut)))
   ++  nest