diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-09 23:52:58 +0200 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-09 23:52:58 +0200 |
| commit | 8baa85fd4c3607a7b3cebf2518a930a3b8a924bf (patch) | |
| tree | 20b98351aca4edc8635e34b96d779bcecd9d8e19 /test/scripts/atom1.milch | |
| parent | 8ba98a86805c886719057f9df0d5a74c58c6dabd (diff) | |
Add atom data type
Diffstat (limited to 'test/scripts/atom1.milch')
| -rw-r--r-- | test/scripts/atom1.milch | 14 |
1 files changed, 14 insertions, 0 deletions
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 |