diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-05-24 11:34:01 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-05-24 18:12:08 +0300 |
commit | 22551322886a5dd47d9eef4fa0c05f11a3570c46 (patch) | |
tree | c656e6a30798a99b0033b9e8c9d03ead6924bef4 /src/guile.c | |
parent | bd71ab695696e4c2058659ca29e408bda6ed9c43 (diff) | |
download | cfpeek-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.c | 4 |
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)); |