From 37f933b33a1b3039d1e9b0eaa200d1e9dcfdaca7 Mon Sep 17 00:00:00 2001
From: "C. Guy Yarvin" <cgyarvin@gmail.com>
Date: Tue, 1 Jul 2014 16:29:44 -0700
Subject: [PATCH] Change ++ja to ++jo and fix some stuff.

---
 arvo/zuse.hoon | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/arvo/zuse.hoon b/arvo/zuse.hoon
index 5ed9b43729..99c20cfcf5 100644
--- a/arvo/zuse.hoon
+++ b/arvo/zuse.hoon
@@ -623,7 +623,7 @@
     ==
   ==
 ::
-++  ja  !:                                              ::  json reparser
+++  jo  !:                                              ::  json reparser
   =>  |%  ++  grub  (unit ,*) 
           ++  fist  $+(json grub)
       --
@@ -635,7 +635,7 @@
     %-  zl
     |-  
     ?~  p.jon  ~
-    [(wit i.p.jon) $(p.jon t.p.jon)]
+    [i=(wit i.p.jon) t=$(p.jon t.p.jon)]
   ::
   ++  at                                                ::  array as tuple
     |*  wil=(list fist)
@@ -644,7 +644,7 @@
     %-  zt
     |-  
     ?~  wil  ~
-    [?~(p.jon ~ (i.wil i.p.jon)) $(p.jon ?~(p.jon ~ t.p.jon))]
+    [i=?~(p.jon ~ (i.wil i.p.jon)) t=$(p.jon ?~(p.jon ~ t.p.jon))]
   ::
   ++  bo                                                ::  boolean
     |=(jon=json ?.(?=([%b *] jon) ~ [~ u=p.jon]))
@@ -700,7 +700,7 @@
     |-
     ?~  wer  ~
     =+  ten=(~(get by p.jon) p.i.wer)
-    [?~(ten ~ (q.i.wer u.ten)) $(wer t.wer)]
+    [i=?~(ten ~ (q.i.wer u.ten)) t=$(wer t.wer)]
   ::
   ++  om                                                ::  object as map
     |*  wit=fist
@@ -709,7 +709,7 @@
     %-  zm
     |-  
     ?~  p.jon  ~
-    [[p.n.p.jon (wit q.n.p.jon)] $(p.jon l.p.jon) $(p.jon r.p.jon)]
+    [n=[p=p.n.p.jon q=(wit q.n.p.jon)] l=$(p.jon l.p.jon) r=$(p.jon r.p.jon)]
   ::
   ++  pe                                                ::  prefix
     |*  [pre=* wit=fist]