From 8aac272c580a8cbf7325ba7bf3a9c5fed370a24b Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 25 Nov 2013 11:07:06 -0800 Subject: [PATCH] math.floats: shorten definitions using "bit?". --- core/math/floats/floats.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/core/math/floats/floats.factor b/core/math/floats/floats.factor index 9b211a0143..05eb4d4722 100644 --- a/core/math/floats/floats.factor +++ b/core/math/floats/floats.factor @@ -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