mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 04:22:48 +03:00
16 lines
304 B
Plaintext
16 lines
304 B
Plaintext
|
!:
|
||
|
:: /=main=/toy/cat/hoon
|
||
|
::
|
||
|
|= *
|
||
|
|= [del=path dev=path ~]
|
||
|
:_ ~
|
||
|
:_ ~
|
||
|
^- gift
|
||
|
=+ [hel=(lore ((hard ,@) .^(%cx del))) hev=(lore ((hard ,@) .^(%cx dev)))]
|
||
|
=+ dis=(loss hel hev)
|
||
|
=+ puc=(lusk hel hev dis)
|
||
|
=+ rev=(lurk hel puc)
|
||
|
=+ ver=(lurk hev (berk puc))
|
||
|
?> &(=(rev hev) =(ver hel))
|
||
|
[%la >puc<]
|