gforth/blocks.fs - diff

Return to blocks.fs CVS log

Up to [gforth] / gforth

version 1.53, 2007/12/31 18:40:23	version 1.55, 2008/07/15 16:11:49
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 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,2000,2003,2006,2007,2008 Free Software Foundation, Inc.

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

Line 124 Defer flush-blocks ( -- ) \ gforth	Line 124 Defer flush-blocks ( -- ) \ gforth
rdrop ;	rdrop ;

: empty-buffer ( buffer -- ) \ gforth	: empty-buffer ( buffer -- ) \ gforth
buffer-block off ;	dup buffer-block on buffer-dirty off ;

: save-buffers ( -- ) \ block	: save-buffers ( -- ) \ block
\G Transfer the contents of each @code{update}d block buffer to	\G Transfer the contents of each @code{update}d block buffer to