use radix literals

[factor.git] / basis / ascii / ascii.factor

diff --git a/basis/ascii/ascii.factor b/basis/ascii/ascii.factor
index bd1b86b2793347fcf56dfa1923b9b87a4184a508..6f89dea6d92ce199cb5883d6ad0280bb187dc4d4 100644 (file)
--- a/basis/ascii/ascii.factor
+++ b/basis/ascii/ascii.factor
@@ -10,13 +10,13 @@ IN: ascii
 : LETTER? ( ch -- ? ) CHAR: A CHAR: Z between? ; inline\r
 : digit? ( ch -- ? ) CHAR: 0 CHAR: 9 between? ; inline\r
 : printable? ( ch -- ? ) CHAR: \s CHAR: ~ between? ; inline\r
-: control? ( ch -- ? ) { [ 0 HEX: 1F between? ] [ HEX: 7F = ] } 1|| ; inline\r
+: control? ( ch -- ? ) { [ 0 0x1F between? ] [ 0x7F = ] } 1|| ; inline\r
 : quotable? ( ch -- ? ) { [ printable? ] [ "\"\\" member? not ] } 1&& ; inline\r
 : Letter? ( ch -- ? ) { [ letter? ] [ LETTER? ] } 1|| ; inline\r
 : alpha? ( ch -- ? ) { [ Letter? ] [ digit? ] } 1|| ; inline\r
-: ch>lower ( ch -- lower ) dup LETTER? [ HEX: 20 + ] when ; inline\r
+: ch>lower ( ch -- lower ) dup LETTER? [ 0x20 + ] when ; inline\r
 : >lower ( str -- lower ) [ ch>lower ] map ;\r
-: ch>upper ( ch -- upper ) dup letter? [ HEX: 20 - ] when ; inline\r
+: ch>upper ( ch -- upper ) dup letter? [ 0x20 - ] when ; inline\r
 : >upper ( str -- upper ) [ ch>upper ] map ;\r
 \r
 HINTS: >lower string ;\r