Return to debugs.fs CVS log | Up to [gforth] / gforth |
version 1.1, 1997/05/21 20:39:23 | version 1.2, 1997/07/31 16:17:07 |
---|---|
Line 51 defer printdebugline ( addr -- ) \ gfort | Line 51 defer printdebugline ( addr -- ) \ gfort |
: (~~) ( -- ) | : (~~) ( -- ) |
r@ printdebugline | r@ printdebugline |
r> sourcepos drop + >r ; | r> sourcepos %size + >r ; |
: ~~ ( compilation -- ; run-time -- ) \ gforth tilde-tilde | : ~~ ( compilation -- ; run-time -- ) \ gforth tilde-tilde |
POSTPONE (~~) sourcepos, ; immediate | POSTPONE (~~) sourcepos, ; immediate |