| version 1.3, Tue Dec 8 22:02:39 1998 UTC | version 1.4, Wed Feb 3 00:10:19 1999 UTC | ||
|---|---|---|---|
|
|
||
| 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 ." :" |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |