![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to source.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to source.fs CVS log | Up to [gforth] / gforth |
| version 1.15, 2004/05/14 17:09:22 | version 1.16, 2004/08/23 14:03:52 |
|---|---|
| Line 34 | Line 34 |
| r> loop | r> loop |
| drop 2drop 0 ; | drop 2drop 0 ; |
| : current-sourcepos ( -- ) | : current-sourcepos ( -- nfile nline ) |
| sourcefilename str>loadfilename# sourceline# ; | sourcefilename str>loadfilename# sourceline# ; |
| : compile-sourcepos ( compile-time: -- ; run-time: -- nfile nline ) | : compile-sourcepos ( compile-time: -- ; run-time: -- nfile nline ) |