Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-26 21:58:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix open-file

Browse source
This commit is contained in:
Koichi Nakamura 2022-01-15 15:39:57 +09:00
parent c1021a54ea
commit c6121e5cd1
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
bootstrap.fs
View file

@ -2527,7 +2527,7 @@ need-defined (write)
need-defined (read) need-defined (read)
: open-file ( c-addr fam -- file e ) : open-file ( c-addr fam -- file e )
2dup (open) dup -1 = if 2dup (open) dup 0< if
( c-addr fam fd ) ( c-addr fam fd )
3drop 0 OPEN-FILE-ERROR exit 3drop 0 OPEN-FILE-ERROR exit
then then