diff --git a/pkg/arvo/lib/pprint.hoon b/pkg/arvo/lib/pprint.hoon index fcb2cf5184..1cf1d16ce6 100644 --- a/pkg/arvo/lib/pprint.hoon +++ b/pkg/arvo/lib/pprint.hoon @@ -117,14 +117,18 @@ ++ type-to-tank |= t=type ^- tank - [%plum (type-to-plum t)] + :+ %rose [~ ~ ~] + %+ turn (render-type t) + |=(=cord leaf+(trip cord)) :: :: Pretty-print a vase to a tank. :: ++ vase-to-tank |= v=vase ^- tank - [%plum (vase-to-plum v)] + :+ %rose [~ ~ ~] + %+ turn (render-vase v) + |=(=cord leaf+(trip cord)) :: :: Render an `axis`. :: diff --git a/pkg/arvo/sys/hoon.hoon b/pkg/arvo/sys/hoon.hoon index 6be34f1227..83d0c45331 100644 --- a/pkg/arvo/sys/hoon.hoon +++ b/pkg/arvo/sys/hoon.hoon @@ -2026,7 +2026,6 @@ ++ tang (list tank) :: bottom-first error ++ tank $~ [%leaf ~] :: $% {$leaf p/tape} :: printing formats - {$plum p/plum} :: $: $palm :: backstep list p/{p/tape q/tape r/tape s/tape} :: q/(list tank) :: @@ -4936,7 +4935,6 @@ ^- tape ?- -.tac $leaf p.tac - $plum ~(flat plume p.tac) $palm ram(tac [%rose [p.p.tac (weld q.p.tac r.p.tac) s.p.tac] q.tac]) $rose %+ weld @@ -4954,7 +4952,6 @@ |^ |- ^- wall ?- -.tac $leaf (rig p.tac) - $plum (turn ~(tall plume p.tac) |=(=cord (trip cord))) $palm ?: fit (rig ram)