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

moar changes

Browse Source
This commit is contained in:
Isaac Visintainer 2018-06-20 10:12:26 -07:00
parent dfa915d1ff
commit c68025c8b2
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
sys/vane/clay.hoon
View File

@ -2372,14 +2372,14 @@
++ read-p-in
|= {pax/path pes/regs}
^- dict
=/ rul=(unit rule) (~(get by pes) pax)
=/ rul/(unit rule) (~(get by pes) pax)
?^ rul
:+ pax mod.u.rul
%- ~(rep in who.u.rul)
|= {w/whom out/(pair (set ship) (map @ta crew))}
?: ?=({$& @p} w)
[(~(put in p.out) +.w) q.out]
=/ cru=(unit crew) (~(get by cez.ruf) +.w)
=/ cru/(unit crew) (~(get by cez.ruf) +.w)
?~ cru out
[p.out (~(put by q.out) +.w u.cru)]
?~ pax [/ %white ~ ~]
@ -2415,12 +2415,12 @@
++ allowed-by
|= {who/ship pax/path pes/regs}
^- ?
=/ rul=real rul:(read-p-in pax pes)
=/ in-list=?
=/ rul/real rul:(read-p-in pax pes)
=/ in-list/?
?| (~(has in p.who.rul) who)
::
%- ~(rep by q.who.rul)
|= {{@ta cru=crew} out/_|}
|= {{@ta cru/crew} out/_|}
?: out &
(~(has in cru) who)
==