Merge pull request #33 from ellerh/implement-resize-file

[pforth] / fth / t_file.fth

diff --git a/fth/t_file.fth b/fth/t_file.fth
index 10f434f..388008c 100644 (file)
--- a/fth/t_file.fth
+++ b/fth/t_file.fth
@@ -74,7 +74,6 @@ true value verbose
 : $" state IF postpone s" else ['] s" execute THEN ; immediate
 
 \ FIXME: stubs for missing definitions
 : $" 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
 : file-status 2drop 0 -1 ;
 
 TESTING File Access word set