Revert "hoon: refactor royl float parsers to separate arms"

This reverts commit ff06e45875, which
should have been replaced with an updated commit.

bin/solid.pill

@@ -1,3 +1,3 @@
 version https://git-lfs.github.com/spec/v1
-oid sha256:0e25b645795e0a1b393c76e6ea4f27d1a431233c010182454e1fd025b602146b
+oid sha256:8d5434f92c35d11e4a8cb9f63d02c26cf4ac20fd0b454997a90f396c45f8639c
-size 8951796
+size 8957682

pkg/arvo/sys/hoon.hoon

@@ -6124,52 +6124,47 @@
     ==
   ++  royl
     ~+
-    ;~  pose
-      (stag %rh royl-rh)
-      (stag %rq royl-rq)
-      (stag %rd royl-rd)
-      (stag %rs royl-rs)
-    ==
-  ::
-  ++  royl-rh  (cook rylh ;~(pfix ;~(plug sig sig) (cook royl-cell royl-rn)))
-  ++  royl-rq  (cook rylq ;~(pfix ;~(plug sig sig sig) (cook royl-cell royl-rn)))
-  ++  royl-rd  (cook ryld ;~(pfix sig (cook royl-cell royl-rn)))
-  ++  royl-rs  (cook ryls (cook royl-cell royl-rn))
-  ::
-  ++  royl-rn
     =+  ^=  moo
       |=  a/tape
       :-  (lent a)
       (scan a (bass 10 (plus sid:ab)))
-    ;~  pose
+    =+  ^=  voy
-      ;~  plug
+      %+  cook  royl-cell
-        (easy %d)
+      ;~  pose
-        ;~  pose  (cold | hep)  (easy &)  ==
+        ;~  plug
-        ;~  plug  dim:ag
+          (easy %d)
-          ;~  pose
-            ;~(pfix dot (cook moo (plus (shim '0' '9'))))
-            (easy [0 0])
-          ==
-          ;~  pose
-            ;~  pfix
-              (just 'e')
-              ;~(plug ;~(pose (cold | hep) (easy &)) dim:ag)
-            ==
-            (easy [& 0])
-          ==
-        ==
-      ==
-      ;~  plug
-        (easy %i)
-        ;~  sfix
           ;~  pose  (cold | hep)  (easy &)  ==
-          (jest 'inf')
+          ;~  plug  dim:ag
+            ;~  pose
+              ;~(pfix dot (cook moo (plus (shim '0' '9'))))
+              (easy [0 0])
+            ==
+            ;~  pose
+              ;~  pfix
+                (just 'e')
+                ;~(plug ;~(pose (cold | hep) (easy &)) dim:ag)
+              ==
+              (easy [& 0])
+            ==
+          ==
+        ==
+        ;~  plug
+          (easy %i)
+          ;~  sfix
+            ;~  pose  (cold | hep)  (easy &)  ==
+            (jest 'inf')
+          ==
+        ==
+        ;~  plug
+          (easy %n)
+          (cold ~ (jest 'nan'))
         ==
       ==
-      ;~  plug
+    ;~  pose
-        (easy %n)
+      (stag %rh (cook rylh ;~(pfix ;~(plug sig sig) voy)))
-        (cold ~ (jest 'nan'))
+      (stag %rq (cook rylq ;~(pfix ;~(plug sig sig sig) voy)))
-      ==
+      (stag %rd (cook ryld ;~(pfix sig voy)))
+      (stag %rs (cook ryls voy))
     ==
   ::
   ++  royl-cell