mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 01:08:54 +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])
|
|
--
|