From: Helmut Eller <eller.helmut@gmail.com>
Date: Sun, 8 Jan 2017 20:55:00 +0000 (+0100)
Subject: Consistently return x=0.
X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/commitdiff_plain/f2087087f70d6e4c2e108497e46773a2bffbb0d8?hp=8d2c2052594284dc08a548589d63b6bcaf28f653

Consistently return x=0.

* fth/file.fth (FILE-STATUS): Explicity return 0 instead of some
unspecified fileid.
---

diff --git a/fth/file.fth b/fth/file.fth
index 0017942..a54220c 100644
--- a/fth/file.fth
+++ b/fth/file.fth
@@ -133,10 +133,10 @@ create (LINE-TERMINATOR) \n c,
 \ a proper primitive.  (OTOH, portable programs can't assume much
 \ about FILE-STATUS and non-portable programs could create a custom
 \ function for access(2).)
-: FILE-STATUS ( c-addr u -- x ior )
+: FILE-STATUS ( c-addr u -- 0 ior )
     r/o bin open-file           ( fileid ior1 )
     ?dup
-    IF                          ( fileid ior1 )
+    IF   nip 0 swap             ( 0 ior1 )
     ELSE close-file 0 swap      ( 0 ior2 )
     THEN
 ;