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

fix scope issue, finally close #349

Browse Source
This commit is contained in:
Anton Dyudin 2015-07-07 12:51:25 -07:00
parent aba8610078
commit 302ea51d22
2 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
arvo/eyre.hoon
View File

@ -1,4 +1,4 @@
:: :: %eyre, http servant
!: :: %eyre, http servant
!? 164
::::
|= pit=vase
@ -757,7 +757,7 @@
=+ bek=-:(need (tome p.tee))
=+ bik=?+(r.bek bek [%ud %0] bek(r da/now))
=- (pass-note tee (ford-req bik [%flag [p.sih `~] -]))
=- `silk`[%cast %mime %$ cay(q.q -)]
=- `silk`[%cast %mime `cay(q.q -)]
?. ?=([%ud 0] r.bek) q.q.cay
?+ p.cay q.q.cay :: inject dependency long-poll
%urb =| urb=[[%html ~] [[%head ~] marl] [[%body ~] manx marl] ~]
@ -796,7 +796,7 @@
::
++ back :: %ford bounce
|= [tea=whir mar=mark cay=cage]
(pass-note tea (ford-req root-beak [%cast mar %$ cay]))
(pass-note tea (ford-req root-beak [%cast mar `cay]))
::
++ ford-kill (pass-note ~ %f [%exec our *beak ~]) :: XX unused
++ ford-req |=([bek=beak kas=silk] [%f [%exec our bek `kas]])

18
arvo/ford.hoon
View File

@ -177,6 +177,7 @@
==
::
++ za :: per event
:: =+ dyv=0
=| $: $: $: our=ship :: computation owner
bek=beak :: desk context
hen=duct :: event floor
@ -1042,11 +1043,12 @@
|=([cof=cafe _r.arc] ^$(cof cof, r.arc r))
|= [cof=cafe [for=@tas ~] ^]
?. ((sane %tas) for) (flue cof)
(lace cof for bem(s [for s.bem]))
%+ cope (lace cof for bem(s [for s.bem]))
(flux (lift |*(* [for +<])))
==
%- flux
|= [lam=marv ram=marv nod=(unit (burg heel vase))]
?^(nod [[for u.nod] lam ram] (~(uni by lam) ram))
|= [lam=marv ram=marv nod=(unit ,[mark (burg heel vase)])]
?^(nod [u.nod lam ram] (~(uni by lam) ram))
==
|= [cof=cafe mal=marv]
=+ lit=(~(get by mal) for)
@ -1148,6 +1150,16 @@
::
++ make :: reduce silk
|= [cof=cafe kas=silk]
:: =+ ^= pre
:: ?+ -.kas -.kas
:: ^ %cell
:: %boil [-.kas p.kas (tope q.kas)]
:: %bake [-.kas p.kas (tope q.kas)]
:: %core [-.kas (tope p.kas)]
:: ==
:: ~& [dyv `term`(cat 3 %make (fil 3 dyv ' ')) pre]
:: =- ~& [dyv `term`(cat 3 %made (fil 3 dyv ' ')) pre] -
:: =. dyv +(dyv)
^- (bolt gage)
?- -.kas
^