From 717073b22d96409153f7ff2e5e14343efaf0af09 Mon Sep 17 00:00:00 2001
From: David Kerschner <dkerschner@hcoop.net>
Date: Mon, 19 Nov 2018 09:57:32 -0800
Subject: [PATCH] Added support for uppercase letters in sail attributes (#890)

---
 sys/hoon.hoon | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/sys/hoon.hoon b/sys/hoon.hoon
index cbd66f31c..6ee10f8a0 100644
--- a/sys/hoon.hoon
+++ b/sys/hoon.hoon
@@ -5374,6 +5374,11 @@
     |=(a/tape (rap 3 ^-((list @) a)))
   ;~(plug low (star ;~(pose nud low hep)))
 ::
+++  mixed-case-symbol
+  %+  cook
+    |=(a/tape (rap 3 ^-((list @) a)))
+  ;~(plug alf (star alp))
+::
 ++  ven  ;~  (comp |=({a/@ b/@} (peg a b)))             ::  +>- axis syntax
            bet
            =+  hom=`?`|
@@ -12076,7 +12081,14 @@
       %+  cook
         |=  {a/@tas b/(unit @tas)}
         ?~(b a [a u.b])
-      ;~(plug sym ;~(pose (stag ~ ;~(pfix cab sym)) (easy ~)))
+      ;~  plug
+        mixed-case-symbol
+        ;~  pose
+          %+  stag  ~
+            ;~(pfix cab mixed-case-symbol)
+          (easy ~)
+        ==
+      ==
     ::
     ++  en-class
       |=  a/(list {$class p/term})