This commit is contained in:
John Whitington 2022-05-06 18:23:56 +01:00
parent e887b4d810
commit c0e818c3a5
1 changed files with 1 additions and 0 deletions

View File

@ -126,6 +126,7 @@ let year_day d m y =
n1 - n2 * n3 + d - 30 n1 - n2 * n3 + d - 30
let return_date () = let return_date () =
match Sys.backend_type with Sys.Other "js_of_ocaml" -> dummy | _ ->
match Sys.os_type with match Sys.os_type with
"Unix" -> "Unix" ->
(* Call the POSIX 'date' program, redirected to a temp file, and parse. *) (* Call the POSIX 'date' program, redirected to a temp file, and parse. *)