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/skribilo.in | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/skribilo.in')

diff --git a/src/skribilo.in b/src/skribilo.in
index a82f9ae..677856a 100755
--- a/src/skribilo.in
+++ b/src/skribilo.in
@@ -28,6 +28,6 @@ main='(module-ref (resolve-interface '\''(skribilo)) '\'skribilo')'
 exec ${GUILE-@GUILE@} -L "@guilemoduledir@" -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