gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.101, 2003/02/28 10:59:13	version 1.102, 2003/03/11 16:07:26
Line 797 max-errors has? file [IF] 6 [ELSE] 4 [TH	Line 797 max-errors has? file [IF] 6 [ELSE] 4 [TH
\G Adjust the string specified by @i{c-addr, u1} to remove all	\G Adjust the string specified by @i{c-addr, u1} to remove all
\G trailing spaces. @i{u2} is the length of the modified string.	\G trailing spaces. @i{u2} is the length of the modified string.
BEGIN	BEGIN
1- 2dup + c@ bl =	dup
WHILE	WHILE
dup 0=	1- 2dup + c@ bl <>
UNTIL	UNTIL 1+ THEN ;
ELSE
1+
THEN ;

DEFER DOERROR	DEFER DOERROR