Name
close-blockfile:block_misc — ordinary primitive
Synopsis
FORTH
CLOSE-BLOCKFILE
( -- )w32for( | ); | |
Description
w32for-implementation:
blockhandle -1 <> if flush close-file drop then
-1 set-blockfile
in pfe:
: CLOSE-BLOCKFILE
BLOCK-FILE ?DUP IF FLUSH CLOSE-FILE DROP THEN
OFF> BLOCK-FILE ;