From 0c26b5aa808ceb997d2fff02dd09cb6cfc71b9e2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 5 Jun 2020 23:20:40 +0200
Subject: Add warnings-are-errors 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 3b135c5a..77f37217 100644
--- a/module/util/exceptions.scm
+++ b/module/util/exceptions.scm
@@ -1,6 +1,7 @@
 (define-module (util exceptions)
   #:use-module (srfi srfi-1)
   #:use-module (util)
+  #:use-module (util config)
   #:export (throw-returnable
             catch-multiple
             assert))
@@ -49,6 +50,10 @@
 (define-public warnings-are-errors
   (make-parameter #f))
 
+(define-config warnings-are-errors #f
+  "Crash on warnings."
+  post: warnings-are-errors)
+
 ;; forwards return from warning-hander. By default returns an unspecified value,
 ;; but instances are free to provide a proper return value and use it.
 (define-public (warning fmt . args)
-- 
cgit v1.2.3