ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-07 07:30:23 +03:00
Code Issues Packages Projects Releases Wiki Activity

=, seems to work.

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-10-10 16:56:34 -07:00
parent 195959013b
commit b94faeccfc
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
arvo/hoon.hoon
View File

@ -6703,8 +6703,8 @@
|% +- $ |% +- $
=> +< => +<
|% |%
++ pord |*(* (form +< *nock)) :: wrap mint formula ++ pord |*(* (form +< *nock)) :: wrap mint formula
++ rosh |*(* (form +< *(list pock))) :: wrap mint changes ++ rosh |*(* (form +< *(list pock))) :: wrap mint changes
++ fleg _(pord *bath) :: legmatch + code ++ fleg _(pord *bath) :: legmatch + code
++ fram _(pord *claw) :: armmatch + ++ fram _(pord *claw) :: armmatch +
++ foat _(rosh *bath) :: leg with changes ++ foat _(rosh *bath) :: leg with changes
@ -6995,7 +6995,7 @@
?: ?=({$| $& *} fid) ?: ?=({$| $& *} fid)
$(q.p.sut t.q.p.sut, p.heg p.p.fid) $(q.p.sut t.q.p.sut, p.heg p.p.fid)
=+ vat=(fine `port`?-(-.fid $& fid, $| [%| p.p.fid])) =+ vat=(fine `port`?-(-.fid $& fid, $| [%| p.p.fid]))
[%| %| p.vat (comb q.vat (comb [%0 axe] q.tiv))] [%| %| p.vat (comb (comb [%0 axe] q.tiv) q.vat)]
-- --
:: ::
{$fork *} {$fork *}