Various fixes and improvements.

arvo/hoon.hoon

@@ -165,6 +165,7 @@
             [%brkt p=twig q=(map term foot)]            ::
             [%brhp p=twig]                              ::
             [%brls p=tile q=twig]                       ::
+            [%brpt p=tile q=tile r=twig]                ::
             [%brtr p=tile q=twig]                       ::
             [%brts p=tile q=twig]                       ::
             [%brwt p=twig]                              ::
@@ -232,13 +233,17 @@
           ::                                            ::
             [%tsbr p=tile q=twig]                       ::
             [%tscl p=tram q=twig]                       ::
+            [%tscn p=twig q=twig]                       ::
             [%tsdt p=wing q=twig r=twig]                ::
+            [%tsfs p=twig q=twig]                       ::
             [%tsgl p=twig q=twig]                       ::
+            [%tshp p=twig q=twig]                       ::
             [%tsgr p=twig q=twig]                       ::
             [%tskt p=twig q=twig r=twig s=twig]         ::
             [%tsls p=twig q=twig]                       ::
+            [%tspm p=tile q=twig]                       ::
+            [%tspt p=tile q=twig]                       ::
             [%tstr p=term q=wing r=twig]                ::
-            [%tshp p=twig q=twig]                       ::
             [%tssg p=tusk]                              ::
           ::                                            ::
             [%wtbr p=tusk]                              ::

arvo/zuse.hoon

@@ -1755,7 +1755,7 @@
 ++  deed  ,[p=@ q=step]                                 ::  signature, stage
 ++  dome                                                ::  project state
           $:  ang=agon                                  ::  pedigree
-              ank=ankh                                  ::  new state
+              ank=ankh                                  ::  state
               let=@                                     ::  (lent hit)
               hit=(list frog)                           ::  changes in reverse
               lab=(map ,@tas ,@ud)                      ::  labels

main/bin/ram.hoon

@@ -33,6 +33,8 @@
     :_  ~
     :-  t.t.t.pax
     ^-  miso
+    =+  lon=((hard arch) .^(%cy pax))
+    ?~  q.lon
     =+  fil=(file pax)
     ?~  fil
       [%ins i.q.u.p.nut]

main/lib/pony.hoon

@@ -33,6 +33,7 @@
     [[[[%polo ~] [%up pim pro def]] ~] ..$]
   (woo now u.rey)
 ::
+++  pome  |=([git=(list gift) bol=bowl] [(weld git p.bol) q.bol])
 ++  pomo  |=([gud=gift bol=bowl] [[gud p.bol] q.bol])
 ++  pomp  |=([tix=tape bol=bowl] (pomo la/leaf/tix bol))
 ++  pond                                                  ::  text block

try/bin/goodbye.hoon

@@ -1,5 +1,4 @@
 |=  *
 |=  [planet=tape ~]
-^-  bowl
-:_  ~  :_  ~
-[%$ !>("hasta la vista, {planet}.")]
+^-  bowl  :_  ~  :_  ~  :-  %$  !>
+"hasta la vista, {planet}."

try/bin/write.hoon

@@ -0,0 +1,43 @@
+!:  ::  /=try=/bin/env/hoon
+!?      164
+::::
+=>  .(- `[who=@p how=path]`-)
+=>  .(- [woh=(scot %p who) -])
+=>  .(+ =>(+ ^/=main=/lib/pony))
+::::
+|=  [est=time eny=@]  
+|=  [loc=[mih=span dez=span caz=span sup=path] ~]
+::::
+?.  =(woh mih.loc)
+  ~|("you are not {(trip mih.loc)}!" !!)
+=+  yaz=(zu ((hard ankh) .^(%cz mih.loc dez.loc caz.loc ~)))
+%+  pomp  "appending to {(dart:ut loc)}..."
+=<  work
+|%
+++  pend
+  |=  den=@t
+  ^-  [(list gift) _+>]
+  =+  nyp=`soba`[*cart (turn (plan den) |=(p=miso [sup.loc p]))]
+  :-  [[%ok dez.loc `nori`[%& ~ nyp]] ~]
+  =.  yaz  (durn:yaz nyp)
+  +>.$
+::
+++  plan
+  |=  den=@t
+  ^-  (list miso)
+  =+  cur=q:ank:(deny:yaz sup.loc)
+  ?~  cur
+    [[%ins den] ~]
+  ?^  q.u.cur
+    [[%del q.u.cur] [%ins den] ~]
+  [[%mut ((diff %c) q.u.cur (cat 3 q.u.cur den))] ~]
+::
+++  work  
+  |-  ^-  bowl
+  %+  (polo %text "> " ~ ~)  
+    (plus alp)
+  |=  [now=@da txt=tape]
+  ^-  bowl
+  =^  giv  +.^$  (pend (rap 3 (weld txt `tape`[`@`10 ~])))
+  (pome giv ^$)
+--