diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-23 21:46:05 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-23 21:46:05 +0200 |
| commit | 4ba8a8894f0a63e0d3e96df38c3c4d5dab5b737c (patch) | |
| tree | 3b04c18d026fa2505f49ab88eebca4ccc92a1526 /module/util/exceptions.scm | |
| parent | Add tests for with-replaced-attrs. (diff) | |
| download | calp-4ba8a8894f0a63e0d3e96df38c3c4d5dab5b737c.tar.gz calp-4ba8a8894f0a63e0d3e96df38c3c4d5dab5b737c.tar.xz | |
Slight changes to define-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 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)) |