Commit 1eba013e authored by jwilke's avatar jwilke

char optimization

parent c420522d
......@@ -2194,7 +2194,9 @@ Cond: ALiteral ( n -- ) alit, ;Cond
: Char ( "<char>" -- ) bl word char+ c@ ;
Cond: [Char] ( "<char>" -- ) Char lit, ;Cond
\ JAW Cond: chars ;Cond
tchar 1 = [IF]
Cond: chars ;Cond
[THEN]
\ some special literals 27jan97jaw
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment