Merge pull request #130 from janestreet/408

Support for OCaml 4.08
janestreet · May 29, 2019 · 0df63d5 · 0df63d5
2 parents 3e165b8 + bace9be
commit 0df63d5
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/src/core_unix.ml b/src/core_unix.ml
@@ -1240,14 +1240,22 @@ let unlink = unary_filename Unix.unlink
 
 let rename = src_dst Unix.rename
 
+[%%if ocaml_version >= (4, 08, 0)]
+let unix_link ~src ~dst =
+  Unix.link ~src ~dst ?follow:None
+[%%else]
+let unix_link ~src ~dst =
+  Unix.link ~src ~dst
+[%%endif]
+
 let link ?(force = false) ~target ~link_name () =
   improve
     (fun () ->
        if force then begin
          try Unix.unlink link_name
          with Unix_error (Unix.ENOENT, _, _) -> ()
        end;
-       Unix.link ~src:target ~dst:link_name)
+       unix_link ~src:target ~dst:link_name)
     (fun () -> [("target", atom target); ("link_name", atom link_name)])
 ;;