projects
/
pforth
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8d2c205
)
Consistently return x=0.
author
Helmut Eller
<eller.helmut@gmail.com>
Sun, 8 Jan 2017 20:55:00 +0000
(21:55 +0100)
committer
Helmut Eller
<eller.helmut@gmail.com>
Sun, 8 Jan 2017 21:02:32 +0000
(22:02 +0100)
* fth/file.fth (FILE-STATUS): Explicity return 0 instead of some
unspecified fileid.
fth/file.fth
patch
|
blob
|
blame
|
history
diff --git
a/fth/file.fth
b/fth/file.fth
index
0017942
..
a54220c
100644
(file)
--- 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
;