diff options
| author | Ludovic Courtès | 2008-04-15 20:32:20 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2008-04-15 20:32:20 +0200 |
| commit | e375134330f5223c41369ed335c1e6189e55585f (patch) | |
| tree | ffc21114115b0c941f36f3de31877cd5410ebf18 /src/guile | |
| parent | baf2cb533c83f921849c54db3eb371d2bf03a063 (diff) | |
| download | skribilo-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/guile')
| -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))) |