more
This commit is contained in:
parent
e887b4d810
commit
c0e818c3a5
|
@ -126,6 +126,7 @@ let year_day d m y =
|
|||
n1 - n2 * n3 + d - 30
|
||||
|
||||
let return_date () =
|
||||
match Sys.backend_type with Sys.Other "js_of_ocaml" -> dummy | _ ->
|
||||
match Sys.os_type with
|
||||
"Unix" ->
|
||||
(* Call the POSIX 'date' program, redirected to a temp file, and parse. *)
|
||||
|
|
Loading…
Reference in New Issue