diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-06-13 12:57:05 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-06-13 12:57:05 +0300 |
commit | f6e7047f4ffa82b22425c57b23005c5af9dd5b4f (patch) | |
tree | 29650e2d63fd0b0928754964065fb7b7c185c002 | |
parent | 9f46ca3e0f3062dd6e9848f6bfd97926144ccbd7 (diff) | |
download | gamma-f6e7047f4ffa82b22425c57b23005c5af9dd5b4f.tar.gz gamma-f6e7047f4ffa82b22425c57b23005c5af9dd5b4f.tar.bz2 |
Exit on uncaught exceptions.
* src/eval.c: Exit with status 70 (EX_SOFTWARE) if
an uncaught exception is delivered.
-rw-r--r-- | examples/whoisd.scm | 4 | ||||
m--------- | gint | 0 | ||||
-rw-r--r-- | src/eval.c | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/examples/whoisd.scm b/examples/whoisd.scm index 8b100a7..305dcba 100644 --- a/examples/whoisd.scm +++ b/examples/whoisd.scm | |||
@@ -415,7 +415,7 @@ WHERE domain=\"" key "\"")))) | |||
415 | (value #t)) | 415 | (value #t)) |
416 | (tag (single-char #\L) | 416 | (tag (single-char #\L) |
417 | (value #t)) | 417 | (value #t)) |
418 | (facility (single-char #\f) | 418 | (facility (single-char #\F) |
419 | (value #t)) | 419 | (value #t)) |
420 | (inetd (single-char #\i) | 420 | (inetd (single-char #\i) |
421 | (value #f)) | 421 | (value #f)) |
@@ -485,7 +485,7 @@ The following options may be used in daemon mode only:\n\ | |||
485 | ((inetd) | 485 | ((inetd) |
486 | (set! whois-standalone (not (cdr x)))) | 486 | (set! whois-standalone (not (cdr x)))) |
487 | ((facility) | 487 | ((facility) |
488 | (set! log-facility (string-eval (cdr x)))) | 488 | (set! log-facility (eval-string (cdr x)))) |
489 | ((tag) | 489 | ((tag) |
490 | (set! log-tag (cdr x))) | 490 | (set! log-tag (cdr x))) |
491 | (else | 491 | (else |
diff --git a/gint b/gint | |||
Subproject a5774356a1c12d1bcb55b6322710e347e1604fc | Subproject 4254b0590e609b82dac3d688ecb401c9eefb7e2 | ||
@@ -53,7 +53,7 @@ gamma_safe_exec(SCM (*handler) (void *data), void *data, SCM *result) | |||
53 | struct scheme_exec_data ed; | 53 | struct scheme_exec_data ed; |
54 | 54 | ||
55 | if (setjmp(jmp_env)) | 55 | if (setjmp(jmp_env)) |
56 | return 1; | 56 | exit(70); /* EX_SOFTWARE */ |
57 | ed.handler = handler; | 57 | ed.handler = handler; |
58 | ed.data = data; | 58 | ed.data = data; |
59 | scm_internal_lazy_catch(SCM_BOOL_T, | 59 | scm_internal_lazy_catch(SCM_BOOL_T, |