github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-14 07:30:21 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #187 from Interlisp/revert-170-dont-open-unopened-file

Browse Source 
Revert "Don't close a file that hasn't been opened (2)"
This commit is contained in:
Larry Masinter 2021-01-05 18:56:11 -08:00 committed by GitHub
commit 995248decf
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/dsk.c
View File

@ -453,6 +453,7 @@ LispPTR COM_openfile(register LispPTR *args)
* maintain a version status.
*/
if (maintain_version(file, (FileName *)NULL, 1) == 0) {
TIMEOUT(rval = close(fd));
*Lisp_errno = errno;
return (NIL);
}