diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-05 14:19:12 +0200 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-05 14:21:53 +0200 |
| commit | 4002b8988c799a904ef1f359d4267ef4ad80cba3 (patch) | |
| tree | dbb67560f3a44c57df4b0e960861f60605ceb45f /examples/effects-concept.milch | |
| parent | bba047ae945ae7d7899d6e2c1610923bcedb0442 (diff) | |
Rename project to Milch
Diffstat (limited to 'examples/effects-concept.milch')
| -rw-r--r-- | examples/effects-concept.milch | 18 |
1 files changed, 18 insertions, 0 deletions
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) |