FILE-BLOCK FIELD FILE-BUFFER
FILE-BLOCK
* FILE-BLOCK ( a file-id -- c )

file_misc ordinary primitive