X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/e0d21c12cf924ad826eb0e73a10c5167f0195f65..8d2c2052594284dc08a548589d63b6bcaf28f653:/fth/t_file.fth diff --git a/fth/t_file.fth b/fth/t_file.fth index 388008c..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,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