diff options
Diffstat (limited to 'src/guile/skribilo/condition.scm')
| -rw-r--r-- | src/guile/skribilo/condition.scm | 8 |
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))) |