version 1.38, 2009/01/17 16:55:54
|
version 1.39, 2009/05/11 08:07:44
|
Line 326 environment-wordlist set-current
|
Line 326 environment-wordlist set-current
|
\G ``ISO-LATIN-1'' or ``UTF-8'', with the exception of ``ASCII'', where |
\G ``ISO-LATIN-1'' or ``UTF-8'', with the exception of ``ASCII'', where |
\G we prefer the alias ``ASCII''. |
\G we prefer the alias ``ASCII''. |
max-single-byte $80 = IF s" UTF-8" ELSE s" ISO-LATIN-1" THEN ; |
max-single-byte $80 = IF s" UTF-8" ELSE s" ISO-LATIN-1" THEN ; |
|
: max-xchar ( -- xchar ) |
|
max-single-byte $80 = IF $7FFFFFFF ELSE $FF THEN ; |
|
' noop Alias X:xchar |
forth definitions |
forth definitions |
|
|
:noname ( -- ) |
:noname ( -- ) |