Return to debugs.fs CVS log | Up to [gforth] / gforth |
version 1.3, 1998/12/08 22:02:39 | version 1.4, 1999/02/03 00:10:19 |
---|---|
Line 36 | Line 36 |
require source.fs | require source.fs |
defer printdebugdata ( -- ) \ gforth | defer printdebugdata ( -- ) \ gforth print-debug-data |
' .s IS printdebugdata | ' .s IS printdebugdata |
defer printdebugline ( addr -- ) \ gforth | defer printdebugline ( addr -- ) \ gforth print-debug-line |
: (printdebugline) ( addr -- ) | : (printdebugline) ( addr -- ) |
cr print-sourcepos ." :" | cr print-sourcepos ." :" |