| version 1.15, Fri May 14 17:09:22 2004 UTC | version 1.16, Mon Aug 23 14:03:52 2004 UTC | ||
|---|---|---|---|
|
|
||
| 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 ) |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |