Implement FILE-STATUS

[debian/pforth] / fth / t_file.fth

diff --git a/fth/t_file.fth b/fth/t_file.fth
index 10f434f72c15ba8ff658debc8f15b8bd406c00b8..018ca58d168e59cf334c6e17cca35ef92b0569b5 100644 (file)
--- a/fth/t_file.fth
+++ b/fth/t_file.fth
@@ -60,7 +60,7 @@ include? }T{  t_tools.fth
 
 true fp-require-e !
 
-true value verbose
+false value verbose
 
 : testing
     verbose IF
@@ -73,10 +73,6 @@ true value verbose
 : s= compare 0= ;
 : $" state IF postpone s" else ['] s" execute THEN ; immediate
 
-\ FIXME: stubs for missing definitions
-: resize-file drop 2drop -1 ;
-: file-status 2drop 0 -1 ;
-
 TESTING File Access word set
 
 DECIMAL