use radix literals

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

diff --git a/basis/compiler/constants/constants.factor b/basis/compiler/constants/constants.factor
index 7951c1ef0bc690538efd1fac1bd9e3849c3dd542..9118f804c0648c8c5249c4a8211fb79bf39c73ca 100644 (file)
--- a/basis/compiler/constants/constants.factor
+++ b/basis/compiler/constants/constants.factor
@@ -7,7 +7,7 @@ IN: compiler.constants
 ! These constants must match vm/memory.h
 CONSTANT: card-bits 8
 CONSTANT: deck-bits 18
-: card-mark ( -- n ) HEX: 40 HEX: 80 bitor ; inline
+: card-mark ( -- n ) 0x40 0x80 bitor ; inline
 
 ! These constants must match vm/layouts.h
 : slot-offset ( slot tag -- n ) [ bootstrap-cells ] dip - ; inline