mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 20:02:51 +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<]
|