mirror of
https://github.com/urbit/shrub.git
synced 2024-12-13 16:03:36 +03:00
23 lines
497 B
Plaintext
23 lines
497 B
Plaintext
|
|%
|
||
|
|
++ append
|
||
|
|
|* a=*
|
||
|
|
|* b=*
|
||
|
|
[b a]
|
||
|
|
::
|
||
|
|
++ args-into-gate
|
||
|
|
|* [con=[* [hide *] *] gat=_,[@ *]]
|
||
|
|
|= [ost=bone ship arg=_+<.gat]
|
||
|
|
:_ con
|
||
|
|
:* [ost %pass / %g %cide %$]
|
||
|
|
[ost %give %nice ~]
|
||
|
|
=> .(+<-.con `hid=hide`+<-.con)
|
||
|
|
%- turn :_ (append [%give %rush (gat arg)])
|
||
|
|
(~(tap in `(set bone)`(~(get ju pus.hid.con) /out)))
|
||
|
|
==
|
||
|
|
++ gate-bang
|
||
|
|
|* [gat=_,[@ @ *] ref=_,[(list) ^]]
|
||
|
|
|= [ost=bone ship arg=_+<.gat]
|
||
|
|
=+ neu=(ref +<)
|
||
|
|
neu(- [(gat arg) -.neu])
|
||
|
|
--
|