From 83ae25fe87e3a56d169ae8cfc5bf20423d3ec4a5 Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Tue, 27 Sep 2022 10:20:05 +0300
Subject: Add fatal builtin

---
 examples/maybe.lisp | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'examples/maybe.lisp')

diff --git a/examples/maybe.lisp b/examples/maybe.lisp
index c72e114..0447139 100644
--- a/examples/maybe.lisp
+++ b/examples/maybe.lisp
@@ -8,7 +8,7 @@
 (let unsafe-at (\[n seq]
     (match seq
         []
-            (error "unsafe-at out of bounds")
+            (fatal "unsafe-at out of bounds")
         (match n
             0
                 (head seq)
@@ -39,11 +39,11 @@
     "nothing"
         (print-line! "found nothing!"))
 
-;; (export [
-;;     just
-;;     nothing
-;;     unpack-just
-;;     kind
-;;     map
-;;     and-then
-;; ])
\ No newline at end of file
+(let exports [
+    just
+    nothing
+    unpack-just
+    kind
+    map
+    and-then
+])
-- 
cgit v1.3