Type printer crash fix

2024-11-11 04:48:00 +03:00 · 2015-01-26 15:24:31 -08:00 · 2015-01-26 15:24:31 -08:00 · 205d1868ec
commit 205d1868ec
parent 2ba05992ae
2 changed files with 6 additions and 5 deletions
--- a/arvo/hoon.hoon
+++ b/arvo/hoon.hoon
@ -7092,11 +7092,12 @@
      [[%leaf (rip 3 -.lum)] $(lum +.lum)]
    ::
        %type
-      =+  cis=(type lum)
-      ?.  =(lum cis)  ~
+      =+  reb=(slap [p:!>(.) .(sut lum)] %cnzy %duck)
+      =+  cis=(tank q.reb)
+      ?.  =(cis q.reb)  ~
      :^  ~   %palm
        [~ ~ ~ ~] 
-      [[%leaf '#' 't' '/' ~] duck(sut cis) ~]
+      [[%leaf '#' 't' '/' ~] cis ~]
    ::
        %wall
      :-  ~
--- a/arvo/zuse.hoon
+++ b/arvo/zuse.hoon
@ -524,7 +524,7 @@
  ==
 ::
 ++  poja                                                ::  parse JSON
-  =<  |=(a=cord (rush a apex))
+  =<  |=(a=cord `(unit json)`(rush a apex))
  |%
  ++  apex                                              ::  JSON value
    %+  knee  *json  |.  ~+
@ -2206,7 +2206,7 @@
  --
 ::
 ++  epur                                                ::  url/header parser
-  =<  |=(a=cord (rush a auri))
+  =<  |=(a=cord `(unit purl)`(rush a auri))
  |%
  ++  apat                                              ::  2396 abs_path
    %+  cook  deft