| version 1.10, Mon Jan 20 19:17:59 2003 UTC | version 1.11, Mon Jan 20 22:16:04 2003 UTC | ||
|---|---|---|---|
|
|
||
| rdrop 2drop i unloop exit | rdrop 2drop i unloop exit | ||
| endif | endif | ||
| r> loop | r> loop | ||
| drop 2drop 3 ; | drop 2drop 0 ; | ||
| : compile-sourcepos ( compile-time: -- ; run-time: -- nfile nline ) | : compile-sourcepos ( compile-time: -- ; run-time: -- nfile nline ) | ||
| \ compile the current source position as literals: nfile is the | \ compile the current source position as literals: nfile is the |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |