diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-05 23:20:40 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-05 23:20:40 +0200 |
| commit | 0c26b5aa808ceb997d2fff02dd09cb6cfc71b9e2 (patch) | |
| tree | 04acde24725af1c6afd85d6abae6c3ea5d45de51 /module/util/exceptions.scm | |
| parent | Filter out ALL X-HNH- fields from ics output. (diff) | |
| download | calp-0c26b5aa808ceb997d2fff02dd09cb6cfc71b9e2.tar.gz calp-0c26b5aa808ceb997d2fff02dd09cb6cfc71b9e2.tar.xz | |
Add warnings-are-errors config.
Diffstat (limited to 'module/util/exceptions.scm')
| -rw-r--r-- | module/util/exceptions.scm | 5 |
1 files changed, 5 insertions, 0 deletions
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) |