summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/guile/skribilo/condition.scm8
1 files changed, 6 insertions, 2 deletions
diff --git a/src/guile/skribilo/condition.scm b/src/guile/skribilo/condition.scm
index 46298f1..2accab2 100644
--- a/src/guile/skribilo/condition.scm
+++ b/src/guile/skribilo/condition.scm
@@ -1,6 +1,6 @@
;;; condition.scm -- Skribilo SRFI-35 error condition hierarchy.
;;;
-;;; Copyright 2006, 2007 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright 2006, 2007, 2008 Ludovic Courtès <ludo@gnu.org>
;;;
;;;
;;; This program is free software; you can redistribute it and/or modify
@@ -165,7 +165,11 @@
(format (current-error-port)
(_ "undefined skribilo error: ~S~%")
c)))
- (exit exit-val)))
+ (exit exit-val))
+
+ ((message-condition? c)
+ (format (current-error-port) (condition-message c))
+ (exit exit-val)))
(thunk)))