diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix oops in try_open

This commit is contained in:
Vitor Santos Costa 2011-09-01 06:11:38 -07:00
parent b331c4bed0
commit 521d65c058
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/save.c
View File

@ -1419,9 +1419,10 @@ static int try_open(char *inpf, CELL *Astate, CELL *ATrail, CELL *AStack, CELL *
int mode;
if (streamp) {
if ((*streamp = Sopen_file(inpf, "rb")))
return FAIL_RESTORE;
return DO_ONLY_CODE;
if ((*streamp = Sopen_file(inpf, "rb"))) {
return DO_ONLY_CODE;
}
return FAIL_RESTORE;
}
if ((splfild = open_file(inpf, O_RDONLY)) < 0) {
return FAIL_RESTORE;