use radix literals

[factor.git] / basis / math / floats / env / env.factor

diff --git a/basis/math/floats/env/env.factor b/basis/math/floats/env/env.factor
index 301c1bb5ab575c060dee7921d9926fffd5024035..318589687161a77e585321e9a1481830bba07996 100644 (file)
--- a/basis/math/floats/env/env.factor
+++ b/basis/math/floats/env/env.factor
@@ -105,11 +105,11 @@ GENERIC# (set-denormal-mode) 1 ( fp-env mode -- fp-env )
 
 CONSTANT: vm-error-exception-flag>bit
     H{
-        { +fp-invalid-operation+ HEX: 01 }
-        { +fp-overflow+          HEX: 02 }
-        { +fp-underflow+         HEX: 04 }
-        { +fp-zero-divide+       HEX: 08 }
-        { +fp-inexact+           HEX: 10 }
+        { +fp-invalid-operation+ 0x01 }
+        { +fp-overflow+          0x02 }
+        { +fp-underflow+         0x04 }
+        { +fp-zero-divide+       0x08 }
+        { +fp-inexact+           0x10 }
     }
 
 PRIVATE>