gforth/string.fs - diff

Return to string.fs CVS log

Up to [gforth] / gforth

version 1.9, 2010/09/04 21:34:23	version 1.10, 2010/12/30 21:46:14
Line 50	Line 50
>r 2dup r> scan dup >r dup IF 1 /string THEN	>r 2dup r> scan dup >r dup IF 1 /string THEN
2swap r> - 2swap ;	2swap r> - 2swap ;

: $iter ( .. $addr char xt -- .. ) { char xt }	: $iter ( .. $addr char xt -- .. ) >r >r
$@ BEGIN dup WHILE char $split >r >r xt execute r> r>	$@ BEGIN dup WHILE r@ $split i' -rot >r >r execute r> r>
REPEAT 2drop ;	REPEAT 2drop rdrop rdrop ;