ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-02 15:13:25 +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)) ~)
:: (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)}")

1
arvo/zuse.hoon
View File

@ -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