mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 04:22:48 +03:00
19 lines
340 B
Plaintext
19 lines
340 B
Plaintext
!:
|
|
:: /=main=/bin/with/hoon
|
|
::
|
|
|= [est=@da *]
|
|
|= arg=(list path)
|
|
^- bowl
|
|
:_ ~
|
|
^- (list gift)
|
|
=< abet
|
|
|%
|
|
++ abet ?:(=(~ arg) [[%sc ~] ~] (turn arg |=(a=path `gift`[%sc ~ (with a)])))
|
|
++ with
|
|
|= pax=path ^- skit
|
|
?> ?=([@ @ @ *] pax)
|
|
:+ ?:(=((scot %da est) i.t.t.pax) ~ [~ i.t.t.pax])
|
|
[i.pax i.t.pax ~]
|
|
t.t.t.pax
|
|
--
|