gforth/blocks.fs - diff

Return to blocks.fs CVS log

Up to [gforth] / gforth

version 1.57, 2011/01/19 19:26:03	version 1.58, 2011/05/20 13:54:37
Line 89 Defer flush-blocks ( -- ) \ gforth	Line 89 Defer flush-blocks ( -- ) \ gforth

: use ( "file" -- ) \ gforth	: use ( "file" -- ) \ gforth
\g Use @i{file} as the blocks file.	\g Use @i{file} as the blocks file.
name open-blocks ;	name name-too-short? open-blocks ;

\ the file is opened as binary file, since it either will contain text	\ the file is opened as binary file, since it either will contain text
\ without newlines or binary data	\ without newlines or binary data