urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-08 14:09:29 +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)) (star ;~(pfix ace dp-value))
%+ cook %+ cook
~(gas by *(map term (unit dojo-source))) ~(gas by *(map term (unit dojo-source)))
%+ more %+ more com
;~(plug com ace)
;~ plug ;~ plug
;~(pfix tis sym) ;~(pfix ace tis sym)
;~ pose (punt ;~(pfix ace dp-value))
;~(pfix ace (stag ~ dp-value))
(easy ~)
==
== ==
== ==
-- --

5
cat/hood/merge.hoon
View File

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