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

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

@ -309,8 +309,8 @@
++ kill ++ kill
|= cil=span |= cil=span
^- (list move) ^- (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 ++ next-act :: rotate active task