aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Courtès2008-04-15 20:32:20 +0200
committerLudovic Courtès2008-04-15 20:32:20 +0200
commite375134330f5223c41369ed335c1e6189e55585f (patch)
treeffc21114115b0c941f36f3de31877cd5410ebf18 /src
parentbaf2cb533c83f921849c54db3eb371d2bf03a063 (diff)
downloadskribilo-e375134330f5223c41369ed335c1e6189e55585f.tar.gz
skribilo-e375134330f5223c41369ed335c1e6189e55585f.tar.lz
skribilo-e375134330f5223c41369ed335c1e6189e55585f.zip
Support message conditions in `call-with-skribilo-error-catch'.
* src/guile/skribilo/condition.scm (%call-with-skribilo-error-catch): Support `message-condition?'.
Diffstat (limited to 'src')
-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)))