From 874e3bc001e64ba058d6632ebe22fbcdac16c00d Mon Sep 17 00:00:00 2001
From: Simon Van Casteren <simon.van.casteren@gmail.com>
Date: Wed, 8 Jan 2020 12:09:57 +0100
Subject: Add bg_thread.dummy.sml to mock MLton threads in sml/nj

---
 src/bg_thread.dummy.sml | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 src/bg_thread.dummy.sml

(limited to 'src/bg_thread.dummy.sml')

diff --git a/src/bg_thread.dummy.sml b/src/bg_thread.dummy.sml
new file mode 100644
index 00000000..699fa741
--- /dev/null
+++ b/src/bg_thread.dummy.sml
@@ -0,0 +1,9 @@
+(*
+  Dummy implementation. Threading is only supported in MLton.
+  All other implementations just immediately run the background tasks
+*)
+structure BgThread:> BGTHREAD = struct
+  fun queueBgTask filename f = f ()
+  fun hasBgTasks () = false
+  fun runBgTaskForABit () = ()
+end
-- 
cgit v1.2.3