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

Merge pull request #52 from nineties/fix-open

Browse source 
fix open-file
This commit is contained in:
Koichi NAKAMURA 2022-01-15 15:40:56 +09:00 committed by GitHub
commit ca90c5df38
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
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