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.59, 2011/12/31 15:29:25
Line 1	Line 1
\ A less simple implementation of the blocks wordset.	\ A less simple implementation of the blocks wordset.

\ Copyright (C) 1995,1996,1997,1998,2000,2003,2006,2007,2008 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,2000,2003,2006,2007,2008,2011 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

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