mirror of
https://github.com/urbit/shrub.git
synced 2024-12-17 07:14:52 +03:00
15 lines
409 B
Plaintext
15 lines
409 B
Plaintext
!:
|
|
|_ [hide ~]
|
|
++ mess ,[p=path q=[@ *] ~]
|
|
++ pock-poke-args
|
|
|= [ost=bone @ a=type b=?(mess [her=ship mess])]
|
|
=- :_(+>.$ [ost %pass / %g %mess -]~)
|
|
?^ |2.b [[her p]:b our -.q.b (slot 29 [a b])] :: +.&3
|
|
[[our p.b] our -.q.b (slot 13 [a b])] :: +.&2
|
|
::
|
|
++ pour
|
|
|= [ost=bone * sih=*]
|
|
~& poke-resp/;;(,[term term] [&1 &2]:sih)
|
|
:_(+> [ost %pass / %g %cide %$]~)
|
|
--
|