urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 19:46:50 +03:00
Code Issues Packages Projects Releases Wiki Activity

fixed optional argument parser, usage in |merge

Browse Source
This commit is contained in:
Anton Dyudin 2015-09-02 12:03:44 -07:00
parent f49894ad66
commit 8e3933a0c3
2 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ape/dojo.hoon
View File

@ -208,14 +208,10 @@
(star ;~(pfix ace dp-value))
%+ cook
~(gas by *(map term (unit dojo-source)))
%+ more
;~(plug com ace)
%+ more com
;~ plug
;~(pfix tis sym)
;~ pose
;~(pfix ace (stag ~ dp-value))
(easy ~)
==
;~(pfix ace tis sym)
(punt ;~(pfix ace dp-value))
==
==
--

5
cat/hood/merge.hoon
View File

@ -11,12 +11,11 @@
::::
!:
|= $: [now=@da eny=@uvI bek=beak]
[arg=[?(sorc [syd=$|(desk beaky) sorc])] opt=(map ,%gem germ)]
[arg=[?(sorc [syd=$|(desk beaky) sorc])] gem=?(%auto germ)]
==
=* our p.bek
|^ :- %kiln-merge
^- [syd=desk her=ship sud=desk gem=?(germ %auto)]
=+ gem=(fall (~(get by opt) %gem) %auto)
^- [syd=desk her=ship sud=desk gem=?(%auto germ)]
?- arg
[@ @ ~] =+(arg [sud ?.(=(our her) her (sein her)) sud gem])
[^ ~] =+((pars bek.arg) [dez ?.(=(our who) who (sein who)) dez gem])