urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-07 13:37:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

ford alts

Browse Source
This commit is contained in:
Anton Dyudin 2016-01-15 15:32:10 -08:00
parent c378387232
commit 92a308d474
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
arvo/ford.hoon
View File

@ -1156,6 +1156,12 @@
:: (flaw cof leaf/"file not found" (smyt (tope r.kas)) ~) :: (flaw cof leaf/"file not found" (smyt (tope r.kas)) ~)
:: (fine cof [%& p.kas u.vux]) :: (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 %bake
^- (bolt gage) ^- (bolt gage)
%+ cool |.(leaf/"ford: bake {<p.kas>} {<(tope r.kas)>} {~(rend co q.kas)}") %+ cool |.(leaf/"ford: bake {<p.kas>} {<(tope r.kas)>} {~(rend co q.kas)}")

1
arvo/zuse.hoon
View File

@ -2510,6 +2510,7 @@
++ silk :: construction layer ++ silk :: construction layer
$& [p=silk q=silk] :: cons $& [p=silk q=silk] :: cons
$% [%$ p=cage] :: literal $% [%$ p=cage] :: literal
[%alts p=(list silk)] :: options
[%bake p=mark q=coin r=beam] :: local synthesis [%bake p=mark q=coin r=beam] :: local synthesis
[%bunt p=mark] :: example of mark [%bunt p=mark] :: example of mark
[%call p=silk q=silk] :: slam [%call p=silk q=silk] :: slam