fix: use non-deprecated unlink function on windows (#1311)

carp-lang · Sep 16, 2021 · 5a449b0 · 5a449b0
1 parent a4f8041
commit 5a449b0
Showing 1 changed file with 4 additions and 1 deletion.
diff --git 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 <unistd.h>).")
     (defn     unlink [file-name]
       (unlink- (String.cstr file-name)) )