Return to prim CVS log | Up to [gforth] / gforth |
version 1.1, 1997/05/21 20:39:36 | version 1.2, 1997/06/06 17:27:57 |
---|---|
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 |