aboutsummaryrefslogtreecommitdiffstats
path: root/examples/effects-concept.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'examples/effects-concept.lisp')
-rw-r--r--examples/effects-concept.lisp18
1 files changed, 0 insertions, 18 deletions
diff --git a/examples/effects-concept.lisp b/examples/effects-concept.lisp
deleted file mode 100644
index 5ea90d7..0000000
--- a/examples/effects-concept.lisp
+++ /dev/null
@@ -1,18 +0,0 @@
-; 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)