use radix literals

[factor.git] / core / math / floats / floats.factor

diff --git a/core/math/floats/floats.factor b/core/math/floats/floats.factor
index 9c8efbfbb101fbe4ef722d87b6926438fe319232..b441276a886631046fcb2952f45fdace1a8a5d99 100644 (file)
--- a/core/math/floats/floats.factor
+++ b/core/math/floats/floats.factor
@@ -39,7 +39,7 @@ M: float /i float/f >integer ; inline
 M: real abs dup 0 < [ neg ] when ; inline
 
 M: float fp-special?
-    double>bits -52 shift HEX: 7ff [ bitand ] keep = ; inline
+    double>bits -52 shift 0x7ff [ bitand ] keep = ; inline
 
 M: float fp-nan-payload
     double>bits 52 2^ 1 - bitand ; inline