X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/3f863e2896ed0418e1ad202e233b5a036f989ee2..8d2c2052594284dc08a548589d63b6bcaf28f653:/fth/t_file.fth diff --git a/fth/t_file.fth b/fth/t_file.fth index 10f434f..018ca58 100644 --- 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