%- dec arvo-proper-bugs

arvo/ford.hoon

@@ -31,7 +31,7 @@
               [%| p=beam]                               ::  resource location   
           ==                                            ::
 ++  horn                                                ::  resource tree
-          $%  [%ape p=twig]                             ::  /&  twig by hand
+          $%  [%ape p=twig]                             ::  /~  twig by hand
               [%arg p=twig]                             ::  /$  argument
               [%day p=horn]                             ::  /|  list by @dr
               [%dub p=term q=horn]                      ::  /=  apply face
@@ -40,7 +40,7 @@
               [%hub p=horn]                             ::  /@  list by @ud
               [%man p=(map span horn)]                  ::  /*  hetero map
               [%nap p=horn]                             ::  /%  homo map
-              [%now p=horn]                             ::  /&  list by @da 
+              [%now p=horn]                             ::  /&  list by @da
               [%saw p=twig q=horn]                      ::  /;  operate on
               [%see p=beam q=horn]                      ::  /:  relative to
               [%sic p=tile q=horn]                      ::  /^  cast
@@ -215,11 +215,10 @@
       ?~  nym                                           ::  XX should never
         ~&  [%ford-mystery hen]
         +>.$
-      =+  num=(need (~(get by dym.bay) hen))
       =+  tas=(need (~(get by q.tad.bay) u.nym))
       amok:~(camo zo [u.nym tas])
     =+  num=p.tad.bay
-    ?>  !(~(has by dym.bay) hen)
+    ?<  (~(has by dym.bay) hen)
     =:  p.tad.bay  +(p.tad.bay)
         dym.bay    (~(put by dym.bay) hen num)
       ==
@@ -350,7 +349,7 @@
             ?~  p.ton  [%& ~]
             =+  nex=$(p.ton t.p.ton)
             =+  pax=(path i.p.ton)
-            =+  zis=(tome (path i.p.ton))
+            =+  zis=(tome pax)
             ?~  zis
               [%| (smyt pax) ?:(?=(& -.nex) ~ p.nex)]
             ?-  -.nex
@@ -550,16 +549,16 @@
                 ?~  fan  (some (~(gas by *(map term ^horn)) naf))
                 ?.  ?=(%dub -.i.fan)  ~
                 $(fan t.fan, naf [[p.i.fan q.i.fan] naf])
-          ::
-              ++  see
-                %+  rail  
-                  ;~(plug ;~(sfix have col) apex(tol |))
-                ;~(pfix gap ;~(plug have ;~(pfix gap apex)))
           ::
               ++  saw
                 %+  rail
                   ;~(plug ;~(sfix wide:vez sem) apex(tol |))
                 ;~(pfix gap ;~(plug tall:vez ;~(pfix gap apex)))
+          ::
+              ++  see
+                %+  rail  
+                  ;~(plug ;~(sfix have col) apex(tol |))
+                ;~(pfix gap ;~(plug have ;~(pfix gap apex)))
           ::
               ++  sic
                 %+  rail  

arvo/hoon.hoon

@@ -9734,7 +9734,7 @@
       |-  ^-  (unit milt)                               ::
       ?.  ?=([%meta p=* q=milt] q.mut)  `mut            ::  ordinary metacard
       ?.  (sike mev.vil p.mut)  ~                       ::  meta-metacard
-      $(mut q.mut)                                      ::  descend into meta
+      $(mut +.q.mut)                                    ::  descend into meta
     ::
     ++  sump                                            ::  vase to move
       |=  wec=vase

main/app/demo/core.hook

@@ -8,11 +8,29 @@
   :~  [ost %give %nice ~]
   ==
 ::
-++  peek
-  |=  [you=ship pax=path]
-  ?^  pax
-    [%txt (crip "demo peeking {<p.vat>}")]
-  :-  %hymn
+++  peer
+  |=  [ost=bone you=ship pax=path]
+::  ?^  pax
+::    [%txt (crip "demo peeking {<p.vat>}")]
+  :_  +>.$  :_  ~
+  :+  ost  %give
+  :-  %meta
+  !>
+  :-  %meta
+  !>
+  :-  %meta
+  !>
+  :-  %meta
+  !>
+  :-  %meta
+  !>
+  :-  %meta
+  !>
+  :-  %meta
+  !>
+  :-  %meta
+  !>
+  :+  %rust  %hymn
   ^-  manx
   ;html
     ;head