mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-18 04:11:49 +03:00
34 lines
857 B
Plaintext
34 lines
857 B
Plaintext
::
|
|
:::: /hoon/merge/hood/gen
|
|
::
|
|
/? 314
|
|
!:
|
|
|%
|
|
++ beaky {span span span $~}
|
|
++ sorc ?({bek+beaky $~} {her+@p sud+@tas $~})
|
|
--
|
|
::
|
|
::::
|
|
!:
|
|
:- %say
|
|
|= $: {now+@da eny+@uvI bek+beak}
|
|
{arg+{?(sorc {syd+$@(desk beaky) sorc})} gem+?($auto germ)}
|
|
==
|
|
=* our p.bek
|
|
|^ :- %kiln-merge
|
|
^- {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])
|
|
{* @ @ $~} [(pars-src syd.arg) =+(arg [her sud gem])]
|
|
{* ^ $~} [(pars-src syd.arg) =+((pars bek.arg) [who dez gem])]
|
|
==
|
|
++ pars |=(a+beaky =+((need (tome a)) `{who+ship dez+desk}`{p q}))
|
|
++ pars-src
|
|
|= syd=$@(desk beaky)
|
|
?@ syd syd
|
|
=+ (pars syd)
|
|
~| [%into-foreign who `path`syd]
|
|
?>(=(our who) dez)
|
|
--
|