ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-21 15:38:59 +03:00
Code Issues Packages Projects Releases Wiki Activity

flip generator default arguments to end of ?()s

Browse Source 
tracking a change in bunt semantics
This commit is contained in:
Anton Dyudin 2017-11-27 16:41:22 -08:00
parent 50c7bd7154
commit ff518453ef
7 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gen/cat.hoon
View File

@ -9,7 +9,7 @@
:::: ::::
:: ::
:- %say :- %say
|= {^ {arg/(list path)} vane/?($c $g)} |= {^ {arg/(list path)} vane/?($g $c)}
=- tang+(flop `tang`(zing -)) =- tang+(flop `tang`(zing -))
%+ turn arg %+ turn arg
|= pax/path |= pax/path

2
gen/hood/begin.hoon
View File

@ -17,7 +17,7 @@
:- %ask :- %ask
|= $: {now/@da eny/@uvJ bec/beak} |= $: {now/@da eny/@uvJ bec/beak}
{arg/_(scug *@ *{his/@p tic/@p $~})} {arg/_(scug *@ *{his/@p tic/@p $~})}
safety/?($on $off) safety/?($off $on)
== ==
^- (sole-result (cask begs)) ^- (sole-result (cask begs))
?. =(safety %off) ?. =(safety %off)

4
gen/hood/merge.hoon
View File

@ -15,11 +15,11 @@
:: ::
:- %say :- %say
|= $: {now/@da eny/@uvJ bek/beak} |= $: {now/@da eny/@uvJ bek/beak}
{arg/{?(sorc {syd/$@(desk beaky) sorc})} cas/case gem/?($auto germ)} {arg/{?(sorc {syd/$@(desk beaky) sorc})} cas/case gem/?(germ $auto)}
== ==
=* our p.bek =* our p.bek
|^ :- %kiln-merge |^ :- %kiln-merge
^- {syd/desk her/ship sud/desk cas/case gem/?($auto germ)} ^- {syd/desk her/ship sud/desk cas/case gem/?(germ $auto)}
?- arg ?- arg
{@ @ $~} {@ @ $~}
=+(arg [sud ?.(=(our her) her (sein her)) sud (opt-case da+now) gem]) =+(arg [sud ?.(=(our her) her (sein her)) sud (opt-case da+now) gem])

2
gen/ls.hoon
View File

@ -9,6 +9,6 @@
:: ::
~& % ~& %
:- %say :- %say
|= {^ {arg/path $~} vane/?($c $g)} |= {^ {arg/path $~} vane/?($g $c)}
=+ lon=.^(arch (cat 3 vane %y) arg) =+ lon=.^(arch (cat 3 vane %y) arg)
tang+[?~(dir.lon leaf+"~" (subdir vane arg dir.lon))]~ tang+[?~(dir.lon leaf+"~" (subdir vane arg dir.lon))]~

2
gen/ls/subdir.hoon
View File

@ -5,7 +5,7 @@
/? 310 /? 310
|% |%
++ subdir ++ subdir
|= {vane/?($c $g) pax/path des/(map @t $~)} |= {vane/?($g $c) pax/path des/(map @t $~)}
^- tank ^- tank
:+ %rose [" " `~] :+ %rose [" " `~]
%+ turn (sort ~(tap by des) aor) %+ turn (sort ~(tap by des) aor)

2
gen/twit/feed.hoon
View File

@ -11,7 +11,7 @@
:: ::
:- %say :- %say
|= $: {now/@da eny/@uvJ bek/beak} |= $: {now/@da eny/@uvJ bek/beak}
{{who/iden $~} typ/?($home $user)} {{who/iden $~} typ/?($user $home)}
== ==
=+ pax=/(scot %p p.bek)/twit/(scot %da now)/[typ]/[who] =+ pax=/(scot %p p.bek)/twit/(scot %da now)/[typ]/[who]
:- %tang :- %tang

2
gen/womb/shop.hoon
View File

@ -5,7 +5,7 @@
/? 310 /? 310
:- %say :- %say
|= $: {now/@da eny/@uvJ bec/beak} |= $: {now/@da eny/@uvJ bec/beak}
arg/$@($~ {typ/?($stars $planets $galaxies) $~}) arg/$@($~ {typ/?($planets $galaxies $stars) $~})
who/(unit @p) who/(unit @p)
== ==
?~ arg $(arg ~[typ=%planets]) ?~ arg $(arg ~[typ=%planets])