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)
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


No differences found