Implement FLUSH-FILE

[pforth] / fth / t_file.fth

diff --git a/fth/t_file.fth b/fth/t_file.fth
index 5f9e325..328ae7f 100644 (file)
--- a/fth/t_file.fth
+++ b/fth/t_file.fth
@@ -73,14 +73,11 @@ true value verbose
 : s= compare 0= ;
 : $" state IF postpone s" else ['] s" execute THEN ; immediate
 
 : s= compare 0= ;
 : $" state IF postpone s" else ['] s" execute THEN ; immediate
 

-
-\ FIXME: stubs for missing definition
-: flush-file drop -1 ;
+\ FIXME: stubs for missing definitions

 : resize-file drop 2drop -1 ;
 : rename-file 2drop 2drop -1 ;
 : file-status 2drop 0 -1 ;
 
 : resize-file drop 2drop -1 ;
 : rename-file 2drop 2drop -1 ;
 : file-status 2drop 0 -1 ;
 

-

 TESTING File Access word set
 
 DECIMAL
 TESTING File Access word set
 
 DECIMAL