Commit 1256af15 authored by pazsan's avatar pazsan

Better xhold (no buffer)

Fixed +x/string deferred words
parent b3f96f6b
......@@ -83,11 +83,11 @@ Defer -trailing-garbage ( xc-addr u1 -- addr u2 ) \ xchar-ext
over >r +x/string
r> xc@ ;
Create xholdbuf 8 allot
: xhold ( xc -- )
\G Put xc into the pictured numeric output
xholdbuf 8 xc!+? 2drop
BEGIN 1- dup xholdbuf u>= WHILE dup c@ hold REPEAT drop ;
dup xc-size negate chars holdptr +!
holdptr @ dup holdbuf u< -&17 and throw
8 xc!+? 2drop drop ;
\ fixed-size versions of these words
......
......@@ -293,7 +293,7 @@ here wc-table - Constant #wc-table
['] u8\string- is xstring-
['] +u8/string is +xstring
[ [THEN] ]
[ [IFDEF] x/string+ ]
[ [IFDEF] +x/string ]
['] u8\string- is x\string-
['] +u8/string is +x/string
[ [THEN] ]
......
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