diff options
Diffstat (limited to 'otherlibs/win32unix/close.c')
| -rw-r--r-- | otherlibs/win32unix/close.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/otherlibs/win32unix/close.c b/otherlibs/win32unix/close.c index 192f5570f..4349d6b55 100644 --- a/otherlibs/win32unix/close.c +++ b/otherlibs/win32unix/close.c @@ -15,10 +15,10 @@ #include <mlvalues.h> #include "unixsupport.h" -value unix_close(value fd) /* ML */ +CAMLprim value unix_close(value fd) { if (! CloseHandle(Handle_val(fd))) { - _dosmaperr(GetLastError()); + win32_maperr(GetLastError()); uerror("close", Nothing); } return Val_unit; |