Return to prim CVS log | Up to [gforth] / gforth |
version 1.3, 1997/06/15 19:43:28 | version 1.4, 1997/06/23 15:53:53 |
---|---|
Line 508 else if (n>0) | Line 508 else if (n>0) |
-trailing c_addr u1 -- c_addr u2 string dash_trailing | -trailing c_addr u1 -- c_addr u2 string dash_trailing |
u2 = u1; | u2 = u1; |
while (c_addr[u2-1] == ' ') | while (u2>0 && c_addr[u2-1] == ' ') |
u2--; | u2--; |
: | : |
BEGIN 1- 2dup + c@ bl = WHILE | BEGIN 1- 2dup + c@ bl = WHILE |