Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-25 21:58:22 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

replace [ char ... ] literal to [char] ...

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-03 07:56:27 +09:00
parent d1c0d93bec
commit 62a3eee77e
1 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
bootstrap.fs
View file

@ -929,19 +929,19 @@ variable base \ number base
decimal \ set default to decimal
: '0' [ char 0 ] literal ;
: '9' [ char 9 ] literal ;
: 'a' [ char a ] literal ;
: 'x' [ char x ] literal ;
: 'z' [ char z ] literal ;
: 'A' [ char A ] literal ;
: 'Z' [ char Z ] literal ;
: '-' [ char - ] literal ;
: '&' [ char & ] literal ;
: '#' [ char # ] literal ;
: '%' [ char % ] literal ;
: '$' [ char $ ] literal ;
: '\'' [ char ' ] literal ;
: '0' [char] 0 ;
: '9' [char] 9 ;
: 'a' [char] a ;
: 'x' [char] x ;
: 'z' [char] z ;
: 'A' [char] A ;
: 'Z' [char] Z ;
: '-' [char] - ;
: '&' [char] & ;
: '#' [char] # ;
: '%' [char] % ;
: '$' [char] $ ;
: '\'' [char] ' ;
\ Display unsigned integer u2 with number base u1.
: print-uint ( u1 u2 -- )