use radix literals

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

diff --git a/core/math/math.factor b/core/math/math.factor
index 533295b6fcea1020955faf1659ec342b3e9b18ca..81e488cb19b3fb5c23739b7ccc3411601d79dff0 100644 (file)
--- a/core/math/math.factor
+++ b/core/math/math.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2003, 2009 Slava Pestov, Joe Groff.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel math.private ;
+USING: kernel ;
 IN: math
 
 GENERIC: >fixnum ( x -- n ) foldable
@@ -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 )