![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to engine.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to engine.c CVS log | Up to [gforth] / gforth |
| version 1.38, 1996/12/28 17:19:24 | version 1.39, 1997/02/06 21:22:58 |
|---|---|
| Line 110 char *tilde_cstr(Char *from, UCell size, | Line 110 char *tilde_cstr(Char *from, UCell size, |
| s2 = from+1; | s2 = from+1; |
| s2_len = size-1; | s2_len = size-1; |
| } else { | } else { |
| int i; | UCell i; |
| for (i=1; i<size && from[i]!='/'; i++) | for (i=1; i<size && from[i]!='/'; i++) |
| ; | ; |
| { | { |