gforth/blocks.fs - diff

Return to blocks.fs CVS log

Up to [gforth] / gforth

version 1.12, 1997/03/20 14:39:49	version 1.13, 1997/03/27 13:31:01
Line 182 User scr 0 scr !	Line 182 User scr 0 scr !
1 load block-fid @ close-file throw flush	1 load block-fid @ close-file throw flush
r> block-fid ! ;	r> block-fid ! ;

: include ( "name" -- )	\ thrown out because it may provide unpleasant surprises - anton
name 2dup dup 3 - /string s" .fb" compare	\ : include ( "name" -- )
0= IF block-included ELSE included THEN ;	\ name 2dup dup 3 - /string s" .fb" compare
	\ 0= IF block-included ELSE included THEN ;

get-current environment-wordlist set-current	get-current environment-wordlist set-current
true constant block	true constant block