diff options
Diffstat (limited to '')
-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)) |