| |
|
| \ plug-in so that char and '<char> work for UTF-8 |
\ plug-in so that char and '<char> work for UTF-8 |
| |
|
| |
[ifundef] char@ \ !! bootstrapping help |
| |
Defer char@ ( addr u -- char addr' u' ) |
| |
:noname over c@ -rot 1 /string ; IS char@ |
| |
[then] |
| |
|
| :noname ( addr u -- char addr' u' ) |
:noname ( addr u -- char addr' u' ) |
| |
\ !! the if here seems to work around some breakage, but not |
| |
\ entirely; e.g., try 'ç' with LANG=C. |
| dup 1 u<= IF defers char@ EXIT THEN |
dup 1 u<= IF defers char@ EXIT THEN |
| over + >r u8@+ swap r> over - ; IS char@ |
over + >r u8@+ swap r> over - ; IS char@ |
| |
|
