urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-13 16:03:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

radio/shell fixes

Browse Source
This commit is contained in:
Philip C Monk 2014-11-24 18:02:14 -05:00
parent 9d84041407
commit 6e25434e87
2 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
main/app/radio/core.hook
View File

@ -68,13 +68,15 @@
++ pull
|= ost=bone
^- [(list move) _+>]
=+ ^- [his=ship pax=path] (~(got by sup.hid) ost)
?. ?=([%mensajes *] pax)
=+ ^- (unit ,[his=ship pax=path])
(~(get by sup.hid) ost)
?~ - ~& %strange-pull [~ +>.$]
?. ?=([%mensajes *] pax.u)
[~ +>.$]
=+ sta=(~(got by p.vat) t.pax)
=. q.sta %+ ~(put by q.sta) his %.n
=. p.vat %+ ~(put by p.vat) t.pax sta
[(send amigos/t.pax %give %rush %user %out his (ident his)) +>.$]
=+ sta=(~(got by p.vat) t.pax.u)
=. q.sta %+ ~(put by q.sta) his.u %.n
=. p.vat %+ ~(put by p.vat) t.pax.u sta
[(send amigos/t.pax.u %give %rush %user %out his.u (ident his.u)) +>.$]
::
++ send
|= [pax=path msg=(mold note gift)]

4
main/app/shell/core.hook
View File

@ -309,8 +309,8 @@
++ kill
|= cil=span
^- (list move)
:~ [ost %pass /child/[cil]/out %g %nuke [our.hid cil imp.hid] our.hid]
::[ost %pass /child/[cil]/fork %g %cide cil]
:~ [ost %pass /child/[cil]/fork %g %cide cil]
::[ost %pass /child/[cil]/out %g %nuke [our.hid cil imp.hid] our.hid]
==
::
++ next-act :: rotate active task