2 files changed, 4 insertions, 1 deletions
diff --git a/thread/thread.rhm b/thread/thread.rhm
index a0c1b18..4bf911e 100644
--- a/thread/thread.rhm
+++ b/thread/thread.rhm
@@ -11,6 +11,7 @@ export:
     sleep
     sync_timeout
     current_thread
+    current_timestamp
 
 def thread_send: #{thread-send}
 def thread_receive: #{thread-receive}
@@ -18,3 +19,4 @@ def thread_receive_evt: #{thread-receive-evt}
 def thread_wait: #{thread-wait}
 def sync_timeout: #{sync/timeout}
 def current_thread: #{current-thread}
+def current_timestamp: #{current-inexact-monotonic-milliseconds}
diff --git a/thread/thread.rkt b/thread/thread.rkt
index bf7d8eb..6fac881 100644
--- a/thread/thread.rkt
+++ b/thread/thread.rkt
@@ -7,4 +7,5 @@
          thread-wait
          sleep
          sync/timeout
-         current-thread)
+         current-thread
+         current-inexact-monotonic-milliseconds)