gforth/kernel/xchars.fs - diff

Return to xchars.fs CVS log

Up to [gforth] / gforth / kernel

version 1.2, 2005/01/06 21:54:18	version 1.3, 2005/01/12 21:21:53
Line 54 DEFER -TRAILING-GARBAGE ( addr u1 -- add	Line 54 DEFER -TRAILING-GARBAGE ( addr u1 -- add
-1 /string ;	-1 /string ;

: c!+? ( c c-addr1 u1 -- c-addr2 u2 f )	: c!+? ( c c-addr1 u1 -- c-addr2 u2 f )
1 chars u< if \ or use < ?	dup 1 chars u< if \ or use < ?
>r dup >r c!
1 r> r> /string true
else
rot drop false	rot drop false
	else
	>r dup >r c!
	r> r> 1 /string true
then ;	then ;

: c-size ( c -- 1 )	: c-size ( c -- 1 )