From ec0b6e98f692dca6b47893f581106e17fb315b43 Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Sun, 6 Jan 2019 08:22:43 +0800
Subject: [PATCH] also print error

---
 lib/chibi/config.scm | 1 +
 lib/chibi/config.sld | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/chibi/config.scm b/lib/chibi/config.scm
index 486d4c8f..e58bb5ea 100644
--- a/lib/chibi/config.scm
+++ b/lib/chibi/config.scm
@@ -114,6 +114,7 @@
   (guard (exn
           (else
            (warn "couldn't load config:" file)
+           (print-exception exn)
            (print-stack-trace exn)
            (and (pair? opt) (car opt))))
     (call-with-input-file file read)))
diff --git a/lib/chibi/config.sld b/lib/chibi/config.sld
index d5c86048..d6dcab1a 100644
--- a/lib/chibi/config.sld
+++ b/lib/chibi/config.sld
@@ -12,11 +12,12 @@
   (cond-expand
    (chibi
     (import (only (meta) warn))
-    (import (only (chibi) print-stack-trace))
+    (import (only (chibi) print-exception print-stack-trace))
     (import (only (chibi filesystem) file-directory?)))
    (else
     (begin
       (define file-directory? file-exists?)
+      (define (print-exception exn) (write exn))
       (define (print-stack-trace . o) #f)
       (define (warn msg . args)
         (let ((err (current-error-port)))