gforth/blocks.fs - diff

Return to blocks.fs CVS log

Up to [gforth] / gforth

version 1.15, 1997/05/29 19:42:12	version 1.16, 1997/07/06 16:03:24
Line 47 $20 Value buffers	Line 47 $20 Value buffers
User block-fid	User block-fid

: block-cold	: block-cold
defers 'cold block-fid off last-block off	block-fid off last-block off
buffers buffer-struct drop * allocate throw dup block-buffers !	buffers buffer-struct drop * allocate throw dup block-buffers !
buffers buffer-struct drop * erase ;	buffers buffer-struct drop * erase ;

' block-cold IS 'cold	' block-cold INIT8 chained

block-cold	block-cold

Line 192 true constant block	Line 192 true constant block
true constant block-ext	true constant block-ext
set-current	set-current

: bye ['] flush catch drop bye ;

	: bye ['] flush catch drop bye ;