Flop a little more.

2024-12-14 08:34:25 +03:00 · 2015-01-16 11:08:26 -08:00 · 2015-01-16 11:08:26 -08:00 · d1b54827b3
commit d1b54827b3
parent f552051f4c
1 changed files with 7 additions and 3 deletions
--- a/arvo/gall.hoon
+++ b/arvo/gall.hoon
@ -992,14 +992,18 @@
      ::
      ++  said                                          ::  sayz, done wrong
        |=  vud=vase
-        =-  [p.fob (weld (flop q.fob) mow)]
+        =-  [(flop p.fob) (weld (flop q.fob) mow)]
        ^=  fob
        |-  ^-  (pair (list toil) (list move))
        ?:  =(~ q.vud)  [~ ~]
        =+  sud=(sump (slot 2 vud))
        =+  res=$(vud (slot 3 vud))
-        :-  ?~(-.sud -.res [u.-.sud -.res])
-        ?~(+.sud +.res [u.+.sud +.res])
+        :-  ?~  -.sud 
+              -.res 
+            [u.-.sud -.res]
+        ?~  +.sud 
+          +.res 
+        [u.+.sud +.res]
      ::
      ++  sayz                                          ::  dissect app moves
        |=  vud=vase