X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/4162242c136abe5707aeefbe3f884f561b73dd42..8bf2fe25c2d6ed80c3d41cc664d13da865d6be6c:/fth/t_file.fth diff --git a/fth/t_file.fth b/fth/t_file.fth index 5f9e325..328ae7f 100644 --- 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 - -\ 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 ; - TESTING File Access word set DECIMAL