gforth/source.fs - diff

Return to source.fs CVS log

Up to [gforth] / gforth

version 1.2, 1995/11/29 20:20:37	version 1.4, 1997/03/04 17:49:55
Line 19	Line 19
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.	\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.


\ related stuff can be found in kernal.fs	\ related stuff can be found in kernel.fs

\ this stuff is used by (at least) assert.fs and debugging.fs	\ this stuff is used by (at least) assert.fs and debugging.fs

Line 41 end-struct sourcepos	Line 41 end-struct sourcepos

: print-sourcepos ( a-addr -- )	: print-sourcepos ( a-addr -- )
get-sourcepos	get-sourcepos
>r type ." :" r> 0 .r ;	>r type ." :"
	base @ decimal r> 0 .r base ! ;