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 |