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 incorrect path routing

Browse Source
This commit is contained in:
Anton Dyudin 2014-10-02 12:56:53 -07:00 committed by Anton Dyudin
parent bc5128694d
commit 74132bbfe6
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
main/app/terminal/core.hook
View File

@ -145,7 +145,7 @@
[~ q.tel] [~ q.tel]
:- [ost %pass hi/mar/pax %g %sire [aut (encode aut t.pax)]]~ :- [ost %pass hi/mar/pax %g %sire [aut (encode aut t.pax)]]~
:_(q.tel leaf/"+ {(trip aut)}") :_(q.tel leaf/"+ {(trip aut)}")
=. hiz (~(put by hiz) pax tel) =. hiz (~(put by hiz) t.pax tel)
:_ +>.$ :_ +>.$
[[ost %give %rust %hymn (page t.pax)] mof] [[ost %give %rust %hymn (page t.pax)] mof]
== ==
@ -214,8 +214,9 @@
^- [(list move) _+>] ^- [(list move) _+>]
?: ?=(%gone +<.sih) ?: ?=(%gone +<.sih)
`+>.$ `+>.$
=+ tel=(fall (~(get by hiz) |2.pax) *term-line) =+ paf=|2.pax
=+ old=q.tel =+ tel=(fall (~(get by hiz) paf) *term-line)
=+ old=tel
=. q.tel =. q.tel
?. ?=(%mean &2.sih) q.tel ?. ?=(%mean &2.sih) q.tel
=- %- welp :_ q.tel =- %- welp :_ q.tel
@ -226,10 +227,10 @@
?~ p.sih ~ ?~ p.sih ~
:- leaf/(trip p.u.p.sih) :- leaf/(trip p.u.p.sih)
(flop q.u.p.sih) (flop q.u.p.sih)
=. hiz (~(put by hiz) pax tel) =. hiz (~(put by hiz) paf tel)
:_ +>.$ :_ +>.$
:- [ost %give +.sih] :- [ost %give +.sih]
?:(=(old q.tel) ~ (spam pax)) ?:(=(old tel) ~ (spam paf))
:: ::
++ tel-to-jon ++ tel-to-jon
|= tel=term-line |= tel=term-line