summaryrefslogtreecommitdiffabout
authorSergey Poznyakoff <gray@gnu.org.ua>2011-06-13 09:57:05 (GMT)
committer Sergey Poznyakoff <gray@gnu.org.ua>2011-06-13 09:57:05 (GMT)
commitf6e7047f4ffa82b22425c57b23005c5af9dd5b4f (patch) (side-by-side diff)
tree29650e2d63fd0b0928754964065fb7b7c185c002
parent9f46ca3e0f3062dd6e9848f6bfd97926144ccbd7 (diff)
downloadgamma-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.
Diffstat (more/less context) (ignore whitespace changes)
-rw-r--r--examples/whoisd.scm4
m---------gint0
-rw-r--r--src/eval.c2
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 "\""))))
(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
-Subproject a5774356a1c12d1bcb55b6322710e347e1604fc
+Subproject 4254b0590e609b82dac3d688ecb401c9eefb7e2
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,

Return to:

Send suggestions and report system problems to the System administrator.