From f6e7047f4ffa82b22425c57b23005c5af9dd5b4f Mon Sep 17 00:00:00 2001 From: Sergey Poznyakoff Date: Mon, 13 Jun 2011 12:57:05 +0300 Subject: Exit on uncaught exceptions. * src/eval.c: Exit with status 70 (EX_SOFTWARE) if an uncaught exception is delivered. --- examples/whoisd.scm | 4 ++-- gint | 2 +- src/eval.c | 2 +- 3 files changed, 4 insertions(+), 4 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 "\"")))) (value #t)) (tag (single-char #\L) (value #t)) - (facility (single-char #\f) + (facility (single-char #\F) (value #t)) (inetd (single-char #\i) (value #f)) @@ -485,7 +485,7 @@ The following options may be used in daemon mode only:\n\ ((inetd) (set! whois-standalone (not (cdr x)))) ((facility) - (set! log-facility (string-eval (cdr x)))) + (set! log-facility (eval-string (cdr x)))) ((tag) (set! log-tag (cdr x))) (else diff --git a/gint b/gint index a577435..4254b05 160000 --- a/gint +++ b/gint @@ -1 +1 @@ -Subproject commit a5774356a1c12d1bcb55b6322710e347e1604fc9 +Subproject commit 4254b0590e609b82dac3d688ecb401c9eefb7e25 diff --git a/src/eval.c b/src/eval.c index 407b164..cc3da50 100644 --- a/src/eval.c +++ b/src/eval.c @@ -53,7 +53,7 @@ gamma_safe_exec(SCM (*handler) (void *data), void *data, SCM *result) struct scheme_exec_data ed; if (setjmp(jmp_env)) - return 1; + exit(70); /* EX_SOFTWARE */ ed.handler = handler; ed.data = data; scm_internal_lazy_catch(SCM_BOOL_T, -- cgit v1.2.1