From e375134330f5223c41369ed335c1e6189e55585f Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 15 Apr 2008 20:32:20 +0200 Subject: Support message conditions in `call-with-skribilo-error-catch'. * src/guile/skribilo/condition.scm (%call-with-skribilo-error-catch): Support `message-condition?'. --- src/guile/skribilo/condition.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'src') 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 +;;; Copyright 2006, 2007, 2008 Ludovic Courtès ;;; ;;; ;;; 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))) -- cgit v1.2.3