ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 01:52:42 +03:00
Code Issues Packages Projects Releases Wiki Activity

fixed chat ^D not pulling bug

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

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

@ -71,10 +71,10 @@
=+ ^- [his=ship pax=path] (~(got by sup.hid) ost)
?. ?=([%mensajes *] pax)
[~ +>.$]
=+ sta=(~(got by p.vat) pax)
=+ sta=(~(got by p.vat) t.pax)
=. q.sta %+ ~(put by q.sta) his %.n
=. p.vat %+ ~(put by p.vat) pax sta
[(send amigos/pax %give %rush %user %out his (ident his)) +>.$]
=. p.vat %+ ~(put by p.vat) t.pax sta
[(send amigos/t.pax %give %rush %user %out his (ident his)) +>.$]
::
++ send
|= [pax=path msg=(mold note gift)]

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

@ -47,6 +47,7 @@
[%sire p=term q=span] ::
[%mess p=hapt q=ship r=cage] ::
[%meta p=vase] ::
[%nuke p=hapt q=ship] ::
== == == ::
++ mand ,[p=term q=(list twig)] :: name and arguments
++ coma ::
@ -202,17 +203,18 @@
%&
=+ cil=(scot %ud p.poc)
=+ cin=(trip (~(got by cub.hid) cil))
%+ blab
[ost %pass /child/[cil]/fork %g %cide cil]
%- blab
%+ welp
(kill cil)
(print leaf/"- :{cin}({(trip cil)})")
::
%|
=+ ^- moz=(list move)
%+ murn (~(tap by cub.hid))
%- zing
%+ turn (~(tap by cub.hid))
|= [a=span b=term]
?. =(b p.poc) ~
%- some
[ost %pass /child/[a]/fork %g %cide a]
(kill a)
%- blab %+ welp moz
(print leaf/"-{<(lent moz)>} :{(trip p.poc)}")
==
@ -304,6 +306,13 @@
|= [[n=term v=vase] q=vase]
(slop [[%face n p.v] q.v] q)
::
++ 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]
==
::
++ next-act :: rotate active task
=+ opt=[i=`(unit span)`~ t=(turn cubs |=(a=span `(unit span)`[~ a]))]
|-