From fdec9ebe935a97f8af1856bf546564e8342c82cb Mon Sep 17 00:00:00 2001
From: Logan Allen <loganallc@gmail.com>
Date: Wed, 26 May 2021 15:45:39 -0500
Subject: [PATCH] arvo: add +en-case, hoon: remove +sloy

---
 pkg/arvo/sys/arvo.hoon | 14 +++++++++++---
 pkg/arvo/sys/hoon.hoon |  7 -------
 2 files changed, 11 insertions(+), 10 deletions(-)

diff --git a/pkg/arvo/sys/arvo.hoon b/pkg/arvo/sys/arvo.hoon
index efc870310..92eecc903 100644
--- a/pkg/arvo/sys/arvo.hoon
+++ b/pkg/arvo/sys/arvo.hoon
@@ -297,9 +297,17 @@
   ?.  ?=([@ @ @ *] p)  ~
   ?~  who=(slaw %p i.p)  ~
   ?~  des=?~(i.t.p (some %$) (slaw %tas i.t.p))  ~  :: XX +sym ;~(pose low (easy %$))
-  ?~  ved=(sloy i.t.t.p)  ~
-  ?.  ?=([%$ case] u.ved)  ~
-  `(unit beam)`[~ [`ship`u.who `desk`u.des `case`p.u.ved] t.t.t.p]
+  ?~  ved=(en-case i.t.t.p)  ~
+  `(unit beam)`[~ [`ship`u.who `desk`u.des `case`u.ved] t.t.t.p]
+::
+++  en-case
+  ~/  %en-case
+  |=  =knot
+  ^-  (unit case)
+  ?^  num=(slaw %ud knot)  `[%ud u.num]
+  ?^  wen=(slaw %da knot)  `[%da u.wen]
+  ?~  lab=(slaw %tas knot)  ~
+  `[%tas u.lab]
 ::
 ++  en-omen
   |=  [vis=view bem=beam]
diff --git a/pkg/arvo/sys/hoon.hoon b/pkg/arvo/sys/hoon.hoon
index 1496a1478..d84d3a35c 100644
--- a/pkg/arvo/sys/hoon.hoon
+++ b/pkg/arvo/sys/hoon.hoon
@@ -5952,13 +5952,6 @@
     ~
   [~ p.u.q.vex]
 ::
-++  sloy
-  |=  txt=@ta  ^-  (unit coin)
-  =/  maybe-da  (rush txt ;~(pfix sig (cook year when:so)))
-  ?^  maybe-da
-    `[%$ [%da u.maybe-da]]
-  (slay txt)
-::
 ++  smyt                                                ::  pretty print path
   |=  bon=path  ^-  tank
   :+  %rose  [['/' ~] ['/' ~] ~]