Return to source.fs CVS log | Up to [gforth] / gforth |
version 1.10, 2003/01/20 19:17:59 | version 1.11, 2003/01/20 22:16:04 |
---|---|
Line 32 | Line 32 |
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 |