fsharp: add time-ms to core.

diff --git a/fsharp/core.fs b/fsharp/core.fs
index 9e22b20..2172cc0 100644 (file)
--- a/fsharp/core.fs
+++ b/fsharp/core.fs
@@ -1,5 +1,6 @@
 module Core
     
+    open System
     open Types
 
     let inline toBool b = if b then Node.TRUE else Node.FALSE
@@ -23,6 +24,9 @@ module Core
     let gt = twoNodeOp (fun a b -> a > b |> toBool)
     let eq = twoNodeOp (fun a b -> a = b |> toBool)
 
+    let time_ms _ =
+        DateTime.Now.Ticks / TimeSpan.TicksPerMillisecond |> int64 |> Number
+
     let list = Node.makeList
     let isList = function
         | [List(_, _)] -> Node.TRUE

diff --git a/fsharp/env.fs b/fsharp/env.fs
index 5ae039a..1f0d45d 100644 (file)
--- a/fsharp/env.fs
+++ b/fsharp/env.fs
@@ -56,6 +56,7 @@ module Env
               wrap "<=" Core.le
               wrap ">=" Core.ge
               wrap ">" Core.gt
+              wrap "time-ms" Core.time_ms
               wrap "pr-str" Core.pr_str
               wrap "str" Core.str
               wrap "prn" Core.prn