X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/152b667a9297862bdca89e04bc331f30c1942654..391238894e9b4c5ba60ff52a995b2cda81242242:/fth/t_file.fth diff --git a/fth/t_file.fth b/fth/t_file.fth index e2fb565..297f208 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,9 +73,6 @@ true value verbose : s= compare 0= ; : $" state IF postpone s" else ['] s" execute THEN ; immediate -\ FIXME: stubs for missing definitions -: file-status 2drop 0 -1 ; - TESTING File Access word set DECIMAL