From c803ecf4213487591e75f66a6f1c1b0ac1ea4f5e Mon Sep 17 00:00:00 2001
From: Lucas Fryzek <lucas.fryzek@fryzekconcepts.com>
Date: Sun, 23 Mar 2025 22:38:25 +0000
Subject: Get threading of world working
---
thread/thread.rhm | 2 ++
thread/thread.rkt | 3 ++-
2 files changed, 4 insertions(+), 1 deletion(-)
(limited to 'thread')
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)
--
cgit v1.2.3