aboutsummaryrefslogtreecommitdiff
path: root/src/guile.c
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2011-05-24 11:34:01 +0300
committerSergey Poznyakoff <gray@gnu.org.ua>2011-05-24 18:12:08 +0300
commit22551322886a5dd47d9eef4fa0c05f11a3570c46 (patch)
treec656e6a30798a99b0033b9e8c9d03ead6924bef4 /src/guile.c
parentbd71ab695696e4c2058659ca29e408bda6ed9c43 (diff)
downloadcfpeek-22551322886a5dd47d9eef4fa0c05f11a3570c46.tar.gz
cfpeek-22551322886a5dd47d9eef4fa0c05f11a3570c46.tar.bz2
Improve docs. Add texinfo docs.
* doc/cfpeek.1: Complete. * doc/Makefile.am: Update. * doc/.gitignore: New file. * doc/Config: New file. * doc/cfpeek.texi: New file. * doc/check-docs.sh: New file. * doc/fdl.texi: New file. * doc/gendocs_template: New file. * doc/macros.texi: New file. * doc/mastermenu.el: New file. * doc/rendition.texi: New file. * doc/untabify.el: New file. * src/cfpeek.h: Define symbolic exit codes for program-specific exits. * src/cfpeek.c: Use symbolic exit codes. * src/guile.c (guile_apply): Exit on error.
Diffstat (limited to 'src/guile.c')
-rw-r--r--src/guile.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/guile.c b/src/guile.c
index 8fc06cc..e5e7644 100644
--- a/src/guile.c
+++ b/src/guile.c
@@ -711,8 +711,10 @@ guile_apply(struct grecs_node *node)
if (!guile_inited)
return;
- if (setjmp(jmp_env))
+ if (setjmp(jmp_env)) {
grecs_error(NULL, 0, "cfpeek failed");
+ exit(EX_SCRIPTFAIL);
+ }
if (script_expr) {
scm_c_define("node", node_to_scm(node));

Return to:

Send suggestions and report system problems to the System administrator.