use radix literals

[factor.git] / unmaintained / arm / architecture / architecture.factor

diff --git a/unmaintained/arm/architecture/architecture.factor b/unmaintained/arm/architecture/architecture.factor
index 563dd10bc4d7b78fde4bea2d461ba959b3af854e..3e102fe84b8e3b77c69a925d3fc29abf3e070626 100644 (file)
--- a/unmaintained/arm/architecture/architecture.factor
+++ b/unmaintained/arm/architecture/architecture.factor
@@ -306,7 +306,7 @@ M: arm-backend %callback-value ( ctype -- )
 
 M: arm-backend %cleanup ( alien-node -- ) drop ;
 
-: %untag ( dest src -- ) BIN: 111 BIC ;
+: %untag ( dest src -- ) 0b111 BIC ;
 
 : %untag-fixnum ( dest src -- ) tag-bits get <ASR> MOV ;