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

Remove unnecessary :si in si

Browse Source
This commit is contained in:
Steven Dee 2014-01-22 18:16:22 -05:00
parent da9432bf3f
commit 3c5e24ecaf
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
arvo/hoon.hoon
View File

@ -1064,13 +1064,13 @@
++ dif |=([a=@s b=@s] (sum a (new !(syn b) (abs b))))
++ dul |=([a=@s b=@s] =+(c=(old a) ?:(-.c (mod +.c b) (sub b +.c))))
++ mid |= [a=@s b=@s]
=+ c=(old:si a)
=+ d=(old:si b)
=+ c=(old a)
=+ d=(old b)
=+ s=(mix -.c -.d)
=+ m=(mod +.c +.d)
?: |(=(0 m) =(0 s))
(new:si [-.d m])
(new:si [-.d (sub +.d m)])
(new [-.d m])
(new [-.d (sub +.d m)])
++ fra |= [a=@s b=@s]
(new =(0 (mix (syn a) (syn b))) (div (abs a) (abs b)))
++ new |=([a=? b=@] `@s`?:(a (mul 2 b) ?:(=(0 b) 0 +((mul 2 (dec b))))))