From 367cefd18ba6c96c9753e69a19db84ce50f34abf Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Mon, 26 Sep 2022 15:37:04 +0300 Subject: Refactor builtins --- examples/effects-concept.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'examples') diff --git a/examples/effects-concept.lisp b/examples/effects-concept.lisp index efca43e..0bde72f 100644 --- a/examples/effects-concept.lisp +++ b/examples/effects-concept.lisp @@ -11,9 +11,8 @@ "prompted" (batch [ (do print-line (fmt "You entered: %%" [s])) (prompt-input)]) - (batch [ - (do fatal-error (fmt "error: unknown signal %%" [msg]))])))) + (do fatal-error (fmt "error: unknown signal %%" [msg]))))) -;; ENTRYPOINT +; ENTRYPOINT (prompt-input) -- cgit v1.3