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

---
 examples/atom-concept.milch | 11 -----------
 examples/atom.milch         | 14 ++++++++++++++
 2 files changed, 14 insertions(+), 11 deletions(-)
 delete mode 100644 examples/atom-concept.milch
 create mode 100644 examples/atom.milch

(limited to 'examples')

diff --git a/examples/atom-concept.milch b/examples/atom-concept.milch
deleted file mode 100644
index 4158b45..0000000
--- a/examples/atom-concept.milch
+++ /dev/null
@@ -1,11 +0,0 @@
-(let state (atom! 10))
-
-(let do-loop! (\![i n]
-    (match true
-        (lt? i n) (do (update! dec state)
-                      (do-loop! (inc i) n))
-        otherwise unit)))
-
-(do-loop! 0 5)
-(get! state)
-; => 5
diff --git a/examples/atom.milch b/examples/atom.milch
new file mode 100644
index 0000000..0ee6f8f
--- /dev/null
+++ b/examples/atom.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