From 5a449b09191594111b8792cc74d6183c55f498f4 Mon Sep 17 00:00:00 2001 From: Veit Heller Date: Thu, 16 Sep 2021 07:56:32 +0200 Subject: [PATCH] fix: use non-deprecated unlink function on windows (#1311) --- core/IO.carp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/core/IO.carp b/core/IO.carp index d99de8db..7ae95737 100644 --- a/core/IO.carp +++ b/core/IO.carp @@ -55,7 +55,10 @@ module are wrappers around the C standard library.") (register rewind (Fn [(Ptr FILE)] ()) "rewind") (private unlink-) (hidden unlink-) - (register unlink- (Fn [(Ptr CChar)] Int) "unlink") + (register unlink- (Fn [(Ptr CChar)] Int) "unlink") + (windows-only + ; override unlink for windows + (register unlink- (Fn [(Ptr CChar)] Int) "_unlink")) (doc unlink "unlinks a file, i.e. deletes it (thin wrapper for POSIX api in ).") (defn unlink [file-name] (unlink- (String.cstr file-name)) )