From 827d091a605ee700686cbc97807ab3d65d1a212a Mon Sep 17 00:00:00 2001
From: Fang <fang@fang.io>
Date: Mon, 31 Jul 2017 15:04:44 -0700
Subject: [PATCH] Require space before hoon literals

---
 gen/cram.hoon | 47 +++++++++++++++++++++++++++++------------------
 1 file changed, 29 insertions(+), 18 deletions(-)

diff --git a/gen/cram.hoon b/gen/cram.hoon
index efb1ac0751..c8f3c84c85 100644
--- a/gen/cram.hoon
+++ b/gen/cram.hoon
@@ -757,13 +757,10 @@
     [i.los $(los +.los)]
   ::
   ++  word                                              ::  flow parser
-    %+  knee  *graf  |.  ~+
+    %+  knee  *(list graf)  |.  ~+
+    %+  cook  |=(a/?(graf (list graf)) ?+(a a {@ *} [a]~))
     ;~  pose
     ::
-    ::  whitespace
-    ::
-      (stag %text (cold " " whit))
-    ::
     ::  ordinary word
     ::
       (stag %text ;~(plug ;~(pose low hig) (star ;~(pose nud low hig hep))))
@@ -788,10 +785,6 @@
     ::
       (stag %code (ifix [tec tec] (cash tec)))
     ::
-    ::  #twig
-    ::
-      (stag %code ;~(pfix hax (echo wide:vast)))
-    ::
     ::  ++arm
     ::
       (stag %code ;~(plug lus lus low (star ;~(pose nud low hep))))
@@ -804,18 +797,36 @@
         (ifix [pel per] (cash per))
       ==
     ::
+    ::  #twig
+    ::
+      ;~  plug
+        (stag %text (cold " " whit))
+        (stag %code ;~(pfix hax (echo wide:vast)))
+        (easy ~)
+      ==
+    ::
     ::  direct hoon constant
     ::
-      %+  stag  %code
-      %-  echo
-      ;~  pose
-        bisk:so
-        tash:so
-        ;~(pfix dot perd:so)
-        ;~(pfix sig ;~(pose twid:so (easy [%$ %n 0])))
-        ;~(pfix cen ;~(pose sym buc pam bar qut nuck:so))
+      ;~  plug
+        (stag %text (cold " " whit))
+      ::
+        %+  stag  %code
+        %-  echo
+        ;~  pose
+          bisk:so
+          tash:so
+          ;~(pfix dot perd:so)
+          ;~(pfix sig ;~(pose twid:so (easy [%$ %n 0])))
+          ;~(pfix cen ;~(pose sym buc pam bar qut nuck:so))
+        ==
+      ::
+        (easy ~)
       ==
     ::
+    ::  whitespace
+    ::
+      (stag %text (cold " " whit))
+    ::
     ::  {interpolated} sail
     ::
       (stag %expr inline-embed:(sail |))
@@ -825,7 +836,7 @@
       (stag %text (cook trip ;~(less ace prn)))
     ==
   ::
-  ++  work  (star word)                                 ::  indefinite flow
+  ++  work  (cook zing (star word))                     ::  indefinite flow
   ::
   ++  down                                              ::  parse inline flow
     %+  knee  *flow  |.  ~+