From 554b9df8495f71ac040b2e21bc4efec24e291d4a Mon Sep 17 00:00:00 2001
From: Jorge Acereda <jacereda@gmail.com>
Date: Mon, 29 Jul 2019 21:48:20 +0200
Subject: [PATCH] Use abort() for assertions.

---
 core/Debug.carp  | 2 +-
 core/System.carp | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/core/Debug.carp b/core/Debug.carp
index 1168ed38..c849aba1 100644
--- a/core/Debug.carp
+++ b/core/Debug.carp
@@ -54,4 +54,4 @@ immediately, raising a `SIGABRT` if it fails.")
         ()
         (list 'do
               (list 'println* (list 'fmt "Assertion '%s' failed at line %d, column %d in file %s" (str expr) (line) (column) (file)))
-              '(System.exit 1))))
+              '(System.abort))))
diff --git a/core/System.carp b/core/System.carp
index 2f727781..3e2182b8 100644
--- a/core/System.carp
+++ b/core/System.carp
@@ -27,5 +27,5 @@
   (register signal-int Int "SIGINT")
   (register signal-segv Int "SIGSEGV")
   (register signal-term Int "SIGTERM")
+  (register abort (Fn [] ()) "abort")
 )
-