Implement FILE-STATUS
authorHelmut Eller <eller.helmut@gmail.com>
Tue, 3 Jan 2017 21:13:53 +0000 (22:13 +0100)
committerHelmut Eller <eller.helmut@gmail.com>
Thu, 5 Jan 2017 07:09:45 +0000 (08:09 +0100)
commit8d2c2052594284dc08a548589d63b6bcaf28f653
treeb3f9ee06326215e81195e1114a69437a463c09c8
parente0d21c12cf924ad826eb0e73a10c5167f0195f65
Implement FILE-STATUS

This implements FILE-STATUS on top of OPEN-FILE:  FILE-STATUS succeeds
if we can open the file in read-only mode.  This way we avoid adding
yet another primitive.

* fth/file.fth (FILE-STATUS): New
* fth/t_file.fth (FILE-STATUS): Delete stub
fth/file.fth
fth/t_file.fth