From 723502e4642b1861b902dd87de59973b3f10eca7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 10 Sep 2023 21:08:50 +0200
Subject: Clean up and include exception utility documentation.

---
 module/hnh/util/exceptions.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'module/hnh/util/exceptions.scm')

diff --git a/module/hnh/util/exceptions.scm b/module/hnh/util/exceptions.scm
index 344eb27a..1c3de8c7 100644
--- a/module/hnh/util/exceptions.scm
+++ b/module/hnh/util/exceptions.scm
@@ -33,8 +33,7 @@
 (define (fatal fmt . args)
   (display (format #f "FATAL: ~?~%" fmt (or args '()))
            (current-error-port))
-  (raise 2)
-  )
+  (raise SIGINT))
 
 
 (define (filter-stack pred? stk)
-- 
cgit v1.2.3