Merge branch 'default-args'

This commit is contained in:
Anton Dyudin 2017-11-27 16:42:13 -08:00
commit fcc92b3e89
7 changed files with 8 additions and 8 deletions

View File

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

View File

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

View File

@ -15,11 +15,11 @@
::
:- %say
|= $: {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
|^ :- %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 [sud ?.(=(our her) her (sein her)) sud (opt-case da+now) gem])

View File

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

View File

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

View File

@ -11,7 +11,7 @@
::
:- %say
|= $: {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]
:- %tang

View File

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