|
version 1.93, 2003/01/22 18:52:48
|
version 1.94, 2003/01/26 20:56:38
|
|
Line 786 max-errors has? file [IF] 6 [ELSE] 4 [TH
|
Line 786 max-errors has? file [IF] 6 [ELSE] 4 [TH
|
| emit |
emit |
| loop ; |
loop ; |
| |
|
| |
: -trailing ( c_addr u1 -- c_addr u2 ) \ string dash-trailing |
| |
\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. |
| |
BEGIN |
| |
1- 2dup + c@ bl = |
| |
WHILE |
| |
dup 0= |
| |
UNTIL |
| |
ELSE |
| |
1+ |
| |
THEN ; |
| |
|
| DEFER DOERROR |
DEFER DOERROR |
| |
|
| has? backtrace [IF] |
has? backtrace [IF] |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to int.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel