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

math.floats: shorten definitions using "bit?".

db4
John Benediktsson 2013-11-25 11:07:06 -08:00
parent 344e57a838
commit 8aac272c58
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/math/floats/floats.factor
View File

@ -50,10 +50,10 @@ M: float fp-nan?
dup float= not ;
M: float fp-qnan?
dup fp-nan? [ fp-nan-payload 51 2^ bitand zero? not ] [ drop f ] if ; inline
dup fp-nan? [ fp-nan-payload 51 bit? ] [ drop f ] if ; inline
M: float fp-snan?
dup fp-nan? [ fp-nan-payload 51 2^ bitand zero? ] [ drop f ] if ; inline
dup fp-nan? [ fp-nan-payload 51 bit? not ] [ drop f ] if ; inline
M: float fp-infinity?
dup fp-special? [ fp-nan-payload zero? ] [ drop f ] if ; inline