From 92a308d474b8398fbc1be8c09fd5a280f3ce5a7e Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Fri, 15 Jan 2016 15:32:10 -0800
Subject: [PATCH] ford alts

---
 arvo/ford.hoon | 6 ++++++
 arvo/zuse.hoon | 1 +
 2 files changed, 7 insertions(+)

diff --git a/arvo/ford.hoon b/arvo/ford.hoon
index aebb92bf87..1e80944acf 100644
--- a/arvo/ford.hoon
+++ b/arvo/ford.hoon
@@ -1156,6 +1156,12 @@
 ::           (flaw cof leaf/"file not found" (smyt (tope r.kas)) ~)
 ::         (fine cof [%& p.kas u.vux])
 ::       ::
+          %alts
+        %.  cof
+        |=  cof=cafe  ^-  (bolt gage)
+        ?~  p.kas  (flaw cof leaf/"ford: out of options" ~)
+        (coop ^$(cof cof, kas i.p.kas) ..$(p.kas t.p.kas))
+      ::
           %bake
         ^-  (bolt gage)
         %+  cool  |.(leaf/"ford: bake {<p.kas>} {<(tope r.kas)>} {~(rend co q.kas)}")
diff --git a/arvo/zuse.hoon b/arvo/zuse.hoon
index 71ce49840a..fcca8817e4 100644
--- a/arvo/zuse.hoon
+++ b/arvo/zuse.hoon
@@ -2510,6 +2510,7 @@
 ++  silk                                                ::  construction layer
   $&  [p=silk q=silk]                                   ::  cons
   $%  [%$ p=cage]                                       ::  literal
+      [%alts p=(list silk)]                             ::  options
       [%bake p=mark q=coin r=beam]                      ::  local synthesis
       [%bunt p=mark]                                    ::  example of mark
       [%call p=silk q=silk]                             ::  slam