Return to source.fs CVS log | Up to [gforth] / gforth |
version 1.3, 1996/09/19 22:17:37 | version 1.4, 1997/03/04 17:49:55 |
---|---|
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 ! ; |