From 8baa85fd4c3607a7b3cebf2518a930a3b8a924bf Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Fri, 9 Dec 2022 23:52:58 +0200
Subject: Add atom data type

---
 test/scripts/atom1.milch | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 test/scripts/atom1.milch

(limited to 'test/scripts')

diff --git a/test/scripts/atom1.milch b/test/scripts/atom1.milch
new file mode 100644
index 0000000..0ee6f8f
--- /dev/null
+++ b/test/scripts/atom1.milch
@@ -0,0 +1,14 @@
+(import "core/common")
+
+(let state (atom! 10))
+
+(let do-loop! (\![i n]
+    (match true
+        (lt? i n) (do (atom-update! inc state)
+                      (do-loop! (inc i) n))
+        otherwise unit)))
+
+(do-loop! 0 5)
+
+(atom-get! state)
+; => 15
-- 
cgit v1.3