CLOSE-FILE CLOSE-BLOCKFILE CMOVE>
CLOSE-FILE
* CLOSE-FILE ( file -- code )

close the file and return the status-code

file ordinary primitive