* FILE-FLUSH ( file-id -- ) simulate : FILE-FLUSH DUP FILE-SAVE-BUFFERS FILE-EMTPY-BUFFERS ;
FILE-FLUSH
( file-id -- )
simulate : FILE-FLUSH DUP FILE-SAVE-BUFFERS FILE-EMTPY-BUFFERS ;
file_misc ordinary primitive