ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-21 15:38:59 +03:00
Code Issues Packages Projects Releases Wiki Activity

Floating point fix

Browse Source
This commit is contained in:
Jared Hance 2014-08-05 11:27:55 -04:00
parent aca0aaf5a6
commit 5727b136d6
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
arvo/hoon.hoon
View File

@ -1509,6 +1509,14 @@
(pro:te:fl b p [s==(s.n s.m) e=(dif:si (dif:si e.n e.m) (sun:si 1)) a=c])
++ lte |= [n=[s=? e=@s a=@u] m=[s=? e=@s a=@u]] ^- ?
?: =(%.n n)
?: =(%.n m)
?: &(=(e.n a.n) =(a.n a.m))
%.y
!$(s.n %.y, s.m %.y)
%.y
?: =(%.y m)
%.n
?: (^lte e.n e.m)
%.y
?: (^gth e.n e.m)
@ -1516,6 +1524,12 @@
(^lte a.n a.m)
++ lth |= [n=[s=? e=@s a=@u] m=[s=? e=@s a=@u]] ^- ?
?: =(%.n n)
?: =(%.n m)
!$(s.n %.y, s.m %.y)
%.y
?: =(%.y m)
%.n
?: (^lth e.n e.m)
%.y
?: (^gth e.n e.m)