FILE-LIST FILE-FLUSH FILE-LOAD
FILE-LIST
* FILE-LIST ( x file-id -- )

file_misc ordinary primitive