X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fmath%2Ffloats%2Fhalf%2Fhalf.factor;h=711c69c51723da3a3cdaefa16e670d83469b90e0;hp=d82e3b1fdd0539b410dc84c86baff75b0b9cd4a9;hb=943596575ad294c074dfa381b70af74dba5992b1;hpb=e738c7206c32bd9b76f3cee31e950835e1b1ee24

diff --git a/basis/math/floats/half/half.factor b/basis/math/floats/half/half.factor
index d82e3b1fdd..711c69c517 100644
--- a/basis/math/floats/half/half.factor
+++ b/basis/math/floats/half/half.factor
@@ -7,21 +7,21 @@ IN: math.floats.half
 : half>bits ( float -- bits )
     float>bits
     [ -31 shift 15 shift ] [
-        HEX: 7fffffff bitand
+        0x7fffffff bitand
         dup zero? [
-            dup HEX: 7f800000 >= [ -13 shift HEX: 7fff bitand ] [
+            dup 0x7f800000 >= [ -13 shift 0x7fff bitand ] [
                 -13 shift
                 112 10 shift -
-                0 HEX: 7c00 clamp
+                0 0x7c00 clamp
             ] if
         ] unless
     ] bi bitor ;
 
 : bits>half ( bits -- float )
     [ -15 shift 31 shift ] [
-        HEX: 7fff bitand
+        0x7fff bitand
         dup zero? [
-            dup HEX: 7c00 >= [ 13 shift HEX: 7f800000 bitor ] [
+            dup 0x7c00 >= [ 13 shift 0x7f800000 bitor ] [
                 13 shift
                 112 23 shift + 
             ] if