From 552b8e9e945283954d1fa9b00c733a43b39ab1f9 Mon Sep 17 00:00:00 2001
From: drbeefsupreme <jon@tlon.io>
Date: Wed, 22 Jun 2022 15:46:11 -0400
Subject: [PATCH] hoon: spec doccord parsing, refactor +till +tall

---
 pkg/arvo/sys/hoon.hoon | 22 ++++++++++++++++------
 1 file changed, 16 insertions(+), 6 deletions(-)

diff --git a/pkg/arvo/sys/hoon.hoon b/pkg/arvo/sys/hoon.hoon
index e260f7bfe6..4c54c23b60 100644
--- a/pkg/arvo/sys/hoon.hoon
+++ b/pkg/arvo/sys/hoon.hoon
@@ -13722,10 +13722,8 @@
   ++  wrap
     |*  fel=rule
     %+  cook
-      |=  [a=whit b=hoon c=whit]
-      ^-  hoon
-      ~(apply-whit ~(docs-engine ap b) (glom a c))
-    ::
+      |*  [a=whit b=* c=whit]
+      [(glom a c) b]
     ;~  plug
       apex:docs
       fel
@@ -13734,10 +13732,22 @@
   ::
   ++  tall                                              ::  full tall form
     %+  knee  *hoon
-    |.(~+((wart (wrap ;~(pose expression:(norm &) long lute apex:(sail &))))))
+    |.  ~+
+    %-  wart
+    %+  cook
+      |=  [a=whit b=hoon]
+      ?~  boy.a  b
+      [%note help+`u.boy.a b]
+    (wrap ;~(pose expression:(norm &) long lute apex:(sail &)))
   ++  till                                              ::  mold tall form
     %+  knee  *spec
-    |.(~+((wert ;~(pose structure:(norm &) scad))))
+    |.  ~+
+    %-  wert
+    %+  cook
+      |=  [a=whit b=spec]
+      ?~  boy.a  b
+      [%dict `u.boy.a b]
+    (wrap ;~(pose structure:(norm &) scad))
   ++  wede                                              ::  wide bulb
     ::  XX: lus deprecated
     ::