use radix literals

[factor.git] / basis / math / constants / constants.factor

diff --git a/basis/math/constants/constants.factor b/basis/math/constants/constants.factor
index cb81ded8ea6728099a31fa7b997ddfe595344f63..4f0718d1d18b30ec471fa7e96fe915df62d15d43 100644 (file)
--- a/basis/math/constants/constants.factor
+++ b/basis/math/constants/constants.factor
@@ -8,7 +8,7 @@ IN: math.constants
 : phi ( -- phi ) 1.61803398874989484820 ; inline
 : pi ( -- pi ) 3.14159265358979323846 ; inline
 : 2pi ( -- pi ) 2 pi * ; inline
-: epsilon ( -- epsilon ) HEX: 3cb0000000000000 bits>double ; foldable
-: single-epsilon ( -- epsilon ) HEX: 34000000 bits>float ; foldable
-: smallest-float ( -- x ) HEX: 1 bits>double ; foldable
-: largest-float ( -- x ) HEX: 7fefffffffffffff bits>double ; foldable
+: epsilon ( -- epsilon ) 0x3cb0000000000000 bits>double ; foldable
+: single-epsilon ( -- epsilon ) 0x34000000 bits>float ; foldable
+: smallest-float ( -- x ) 0x1 bits>double ; foldable
+: largest-float ( -- x ) 0x7fefffffffffffff bits>double ; foldable