From 17e5ea2dc8928ee66ec5d212ac4b18039b173b1d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 10 Jun 2020 22:45:36 +0200
Subject: Main error handler how handles different arities.

---
 module/main.scm | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

(limited to 'module/main.scm')

diff --git a/module/main.scm b/module/main.scm
index 97256894..aa4a2dac 100644
--- a/module/main.scm
+++ b/module/main.scm
@@ -194,11 +194,14 @@
                           (lambda () (catch 'return (lambda () (wrapped-main args)) values))
                           (lambda () (run-hook shutdown-hook))
                           ))
-      (lambda (err raiser fmt . args)
-        (format #t "Calp has crashed with [~a],
+      (case-lambda
+        ((err raiser fmt . args)
+         (format #t "Calp has crashed with [~a],
 ~?~%See ~a for full backtrace~%"
-                err fmt args (port-filename (logport)))
-        (format (logport) "<trace>~%<![CDATA[~%")
-        (display-backtrace stack (logport))
-        (format (logport) "]]></trace></run>~%"))
+                 err fmt args (port-filename (logport)))
+         (format (logport) "<trace>~%<![CDATA[~%")
+         (display-backtrace stack (logport))
+         (format (logport) "]]></trace></run>~%"))
+        ((err . args)
+         (format #t "Calp has crashed with [~a]~%~a~%" err args)))
       (lambda _ (set! stack (make-stack #t))))))
-- 
cgit v1.2.3