Return to cross.fs CVS log | Up to [gforth] / gforth |
version 1.103, 2001/09/04 13:06:06 | version 1.104, 2001/09/04 13:07:44 |
---|---|
Line 2194 Cond: ALiteral ( n -- ) alit, ;Cond | Line 2194 Cond: ALiteral ( n -- ) alit, ;Cond |
: Char ( "<char>" -- ) bl word char+ c@ ; | : Char ( "<char>" -- ) bl word char+ c@ ; |
Cond: [Char] ( "<char>" -- ) Char lit, ;Cond | Cond: [Char] ( "<char>" -- ) Char lit, ;Cond |
\ JAW Cond: chars ;Cond | tchar 1 = [IF] |
Cond: chars ;Cond | |
[THEN] | |
\ some special literals 27jan97jaw | \ some special literals 27jan97jaw |