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

Implement RESIZE-FILE

diff --combined fth/t_file.fth
index 10f434f,e6ba0bd..388008c
--- 1/fth/t_file.fth
--- 2/fth/t_file.fth
+++ b/fth/t_file.fth
@@@ -74,7 -74,6 +74,6 @@@ true value verbos
  : $" 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
@@@ -215,12 -214,12 +214,12 @@@ T{ FN2 R/W BIN OPEN-FILE SWAP DROP 0= -
  T{ FN2 DELETE-FILE 0= -> FALSE }T
  
  \ ----------------------------------------------------------------------------
 -\ TESTING multi-line ( comments
 -\ 
 -\ T{ ( 1 2 3
 -\ 4 5 6
 -\ 7 8 9 ) 11 22 33 -> 11 22 33 }T
 -\ 
 +TESTING multi-line ( comments
 +
 +T{ ( 1 2 3
 +4 5 6
 +7 8 9 ) 11 22 33 -> 11 22 33 }T
 +
  \ ----------------------------------------------------------------------------
  TESTING SOURCE-ID (can only test it does not return 0 or -1)