From 28d2d0f31f51e2b667f5a7fa3bd3347edf2d8e22 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Fri, 14 Dec 2007 12:40:45 +0100
Subject: Return non-zero when an error is caught.

* src/guile/skribilo/condition.scm (%call-with-skribilo-error-catch):
  Make sure to always call EXIT.
  (call-with-skribilo-error-catch/exit): New.

* src/pre-inst-skribilo.in: Use `call-with-skribilo-error-catch/exit'.

* src/skribilo.in: Likewise.
---
 src/pre-inst-skribilo.in | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/pre-inst-skribilo.in')

diff --git a/src/pre-inst-skribilo.in b/src/pre-inst-skribilo.in
index b5bd080..3a5c0d8 100755
--- a/src/pre-inst-skribilo.in
+++ b/src/pre-inst-skribilo.in
@@ -27,6 +27,6 @@ exec ${GUILE-@GUILE@} -L "@abs_top_srcdir@/src/guile"   \
                       -c "
 (use-modules (skribilo condition))
 
-(call-with-skribilo-error-catch
+(call-with-skribilo-error-catch/exit
   (lambda ()
     (apply $main (cdr (command-line)))))"  "$@"
-- 
cgit v1.2.3