diff options
| author | Ludovic Courtès | 2007-12-14 12:40:45 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2007-12-14 12:40:45 +0100 |
| commit | 28d2d0f31f51e2b667f5a7fa3bd3347edf2d8e22 (patch) | |
| tree | 20d124cedc9302ed0d974ae91aa7ad7646e139f6 /src/skribilo.in | |
| parent | f8b41ab7899927530b52b11f552ea9ceda866fea (diff) | |
| download | skribilo-28d2d0f31f51e2b667f5a7fa3bd3347edf2d8e22.tar.gz skribilo-28d2d0f31f51e2b667f5a7fa3bd3347edf2d8e22.tar.lz skribilo-28d2d0f31f51e2b667f5a7fa3bd3347edf2d8e22.zip | |
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.
Diffstat (limited to 'src/skribilo.in')
| -rwxr-xr-x | src/skribilo.in | 2 |
1 files changed, 1 insertions, 1 deletions
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)))))" "$@" |