From 4ba8a8894f0a63e0d3e96df38c3c4d5dab5b737c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sat, 23 May 2020 21:46:05 +0200
Subject: Slight changes to define-config.

---
 module/util/exceptions.scm | 5 +++++
 1 file changed, 5 insertions(+)

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

diff --git a/module/util/exceptions.scm b/module/util/exceptions.scm
index d45fb641..a5605e48 100644
--- a/module/util/exceptions.scm
+++ b/module/util/exceptions.scm
@@ -53,6 +53,11 @@
   (display (apply (warning-handler) fmt (or args '()))
            (current-error-port)))
 
+(define-public (fatal fmt . args)
+  (display (format #f "FATAL: ~?~%" fmt (or args '()))
+           (current-error-port))
+  (raise 2)
+  )
 
 (define (prettify-tree tree)
   (cond [(pair? tree) (cons (prettify-tree (car tree))
-- 
cgit v1.2.3