From 4002b8988c799a904ef1f359d4267ef4ad80cba3 Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Mon, 5 Dec 2022 14:19:12 +0200
Subject: Rename project to Milch

---
 examples/effects-concept.milch | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 examples/effects-concept.milch

(limited to 'examples/effects-concept.milch')

diff --git a/examples/effects-concept.milch b/examples/effects-concept.milch
new file mode 100644
index 0000000..5ea90d7
--- /dev/null
+++ b/examples/effects-concept.milch
@@ -0,0 +1,18 @@
+; FUNCTIONS
+
+(let! prompt-input (\[]
+    (let! p "> ")
+    (do get-user-input "prompted" p)))
+
+; SIGNAL HANDLERS
+
+(on user-input (\[msg s]
+    (match msg
+        "prompted" (batch [
+            (do print-line (fmt "You entered: %%" [s]))
+            (prompt-input)])
+        (do fatal-error (fmt "error: unknown signal %%" [msg])))))
+
+; ENTRYPOINT
+
+(prompt-input)
-- 
cgit v1.3