| 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 |
