use radix literals

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

diff --git a/core/math/math.factor b/core/math/math.factor
index 83400a78580f45969ec935aaffe797e288e48b9a..81e488cb19b3fb5c23739b7ccc3411601d79dff0 100644 (file)
--- a/core/math/math.factor
+++ b/core/math/math.factor
@@ -109,7 +109,7 @@ M: object fp-snan? drop f ; inline
 M: object fp-infinity? drop f ; inline
 
 : <fp-nan> ( payload -- nan )
-    HEX: 7ff0000000000000 bitor bits>double ; inline
+    0x7ff0000000000000 bitor bits>double ; inline
 
 GENERIC: next-float ( m -- n )
 GENERIC: prev-float ( m -- n )