ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-13 08:38:43 +03:00
Code Issues Packages Projects Releases Wiki Activity

fix core pretty-printing

Browse Source
This commit is contained in:
Anton Dyudin 2017-10-23 14:52:06 -07:00
parent 1f713896c4
commit b7193da158
2 changed files with 6 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
sys/hoon.hoon
View File

@ -9212,16 +9212,9 @@
%^ cat 3
%~ rent co
:+ %$ %ud
|- ^- @
?- q.s.q.sut
$~ 0
{* $~ $~} 1
{* $~ *} +($(q.s.q.sut r.q.s.q.sut))
{* * $~} +($(q.s.q.sut l.q.s.q.sut))
{* * *} .+ %+ add
$(q.s.q.sut l.q.s.q.sut)
$(q.s.q.sut r.q.s.q.sut)
== ==
%- ~(rep by (~(run by q.s.q.sut) |=(tomb ~(wyt by q))))
|=([[@ a=@u] b=@u] (add a b))
==
%^ cat 3
?-(p.q.sut $gold '.', $iron '|', $lead '?', $zinc '&')
=+ gum=(mug q.s.q.sut)

6
sys/vane/eyre.hoon
View File

@ -231,7 +231,7 @@
%+ rap 3 :- (wack a)
(turn b |=(c/knot (cat 3 '_' (wack c))))
::
++ puck :: light path decoding
++ pick :: light path decoding
=+ fel=(most cab (sear wick urt:ab))
|=(a/knot `(unit {p/term q/path})`(rush a fel))
::
@ -1045,7 +1045,7 @@
(give-thou 307 [location+(crip url)]~ ~)
:: (give-html:abet 200 ~ (redir:xml url))
?. ?=($mime p.cay)
=+ bek=(norm-beak -:(need (de-beam (need (puck p.tee)))))
=+ bek=(norm-beak -:(need (de-beam (need (pick p.tee)))))
(exec-live ac+q.tee bek [%flag [p.sih `~] %cast %mime [%$ cay]])
(give-mime q.tee p.sih cay)
::
@ -1403,7 +1403,7 @@
?~ in-quy
(slav %ta i.t.but)
=+ src=~|(no+u.in-quy (~(got by (malt quy)) u.in-quy))
p:(need (puck src)) :: allow state=usr_other-data
p:(need (pick src)) :: allow state=usr_other-data
::
$at [%auth %at pok(q but)]
$as