steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.functions: minor cleanup.

db4
John Benediktsson 2012-06-22 08:38:34 -07:00
parent 53c43429de
commit 9063235994
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/math/functions/functions.factor
View File

@ -349,7 +349,7 @@ M: real atan >float atan ; inline
: floor ( x -- y ) : floor ( x -- y )
dup 1 mod dup 1 mod
[ ] [ dup 0 < [ - 1 - ] [ - ] if ] if-zero ; foldable [ dup 0 < [ - 1 - ] [ - ] if ] unless-zero ; foldable
: ceiling ( x -- y ) neg floor neg ; foldable : ceiling ( x -- y ) neg floor neg ; foldable
@ -373,7 +373,7 @@ M: complex signum dup abs / ;
MATH: copysign ( x y -- x' ) MATH: copysign ( x y -- x' )
M: real copysign [ >float ] bi@ copysign ; M: real copysign >float copysign ;
M: float copysign M: float copysign
[ double>bits ] [ fp-sign ] bi* [ double>bits ] [ fp-sign ] bi*