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

fix #634 gall |mass, kiln |mv

Browse Source
This commit is contained in:
Anton Dyudin 2015-12-07 14:19:14 -08:00
parent af81b18a36
commit 6c0d8ec6bf
2 changed files with 4 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
arvo/gall.hoon
View File

@ -1218,17 +1218,9 @@
:^ hen %give %mass :^ hen %give %mass
:- %gall :- %gall
:- %| :- %|
%- |= a=(list (list mass)) ^- (list mass) :: XX single-home %+ turn (~(tap by pol.all)) :: XX single-home
=+ a2=a |= [our=@ mast] ^- mass
?~ a !! :+ (scot %p our) %|
?~ i.a ~
:_ $(a (turn a2 tail))
:- p.i.i.a
?~ -.q.i.i.a
[%& (turn (turn a2 head) |=(b=mass ?~(-.q.b p.q.b !!)))]
[%| $(a (turn (turn a2 head) |=(b=mass ?~(-.q.b !! p.q.b))))]
%+ turn (~(tap by pol.all))
|= [@ mast]
:~ foreign/`sap :~ foreign/`sap
blocked/[%| (sort :_(aor (~(tap by (~(run by wub) |=(sofa `+<))))))] blocked/[%| (sort :_(aor (~(tap by (~(run by wub) |=(sofa `+<))))))]
active/[%| (sort :_(aor (~(tap by (~(run by bum) |=(seat `+<))))))] active/[%| (sort :_(aor (~(tap by (~(run by bum) |=(seat `+<))))))]

2
lib/kiln.hoon
View File

@ -142,7 +142,7 @@
|= [input=path output=path] |= [input=path output=path]
%+ do-info "moved" %+ do-info "moved"
?> =(-:(flop input) -:(flop output)) ?> =(-:(flop input) -:(flop output))
%+ furl (fray output) %+ furl (fray input)
(foal output -:(flop input) %noun .^(%cx input)) (foal output -:(flop input) %noun .^(%cx input))
:: ::
++ poke-label ++ poke-label