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
|
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. *)
|
||||||
|
|
Loading…
Reference in New Issue