file-check:toolbelt — ordinary primitive
FORTH
FILE-CHECK ( n -- )();p4:"file-check";
FILE-CHECK ( n -- )(
)
Check for file access error.
\ : FILE-CHECK ( n -- ) THROW ; : FILE-CHECK ( n -- ) ABORT" File Access Error " ;