diff options
author | Ludovic Courtès <ludo@gnu.org> | 2010-08-20 21:08:49 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2010-08-27 18:59:42 +0200 |
commit | 93003b16b03a3aac486994f01140c0ebc6fe1b66 (patch) | |
tree | eb8bc4ac07d7ad57cb5ee6a8b4199304bb488f8f /libguile/init.c | |
parent | 172988eeb4445ca5408be55a9888f7c2d59a316b (diff) | |
download | guile-93003b16b03a3aac486994f01140c0ebc6fe1b66.tar.gz |
Assorted `syntax-check' fixes.
* doc/ref/Makefile.am ($(snarf_doc).am): Untabify.
* libguile/eval.c: Remove unnecessary <assert.h> inclusion.
* .x-sc_m4_quote_check: Update.
* libguile/error.c (scm_error_scm): Use `EXIT_FAILURE' instead of 1.
* libguile/init.c (fixconfig, scm_boot_guile): Likewise.
* libguile/null-threads.h (scm_i_pthread_exit): Likewise.
* libguile/script.c (scm_compile_shell_switches): Likewise.
* test-suite/standalone/test-conversion.c: Likewise.
* test-suite/standalone/test-list.c: Likewise.
* test-suite/standalone/test-unwind.c: Likewise.
* libguile/async.c: Remove unnecessary inclusion of <signal.h>.
* NEWS: "filesystem" -> "file system".
* doc/ref/r6rs.texi: Ditto.
* cfg.mk (local-checks-to-skip): New variable.
* .x-sc_m4_quote_check, .x-sc_obsolete_symbols, .x-sc_program_name,
.x-sc_prohibit_atoi_atof, .x-sc_prohibit_magic_number_exit: New
files.
* .gitignore: Update.
Diffstat (limited to 'libguile/init.c')
-rw-r--r-- | libguile/init.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/libguile/init.c b/libguile/init.c index b511aae76..6e4ee0e05 100644 --- a/libguile/init.c +++ b/libguile/init.c @@ -25,6 +25,7 @@ # include <config.h> #endif +#include <stdlib.h> #include <stdio.h> #include <sys/stat.h> #include <fcntl.h> @@ -160,7 +161,7 @@ fixconfig (char *s1, char *s2, int s) fputs ("\nin ", stderr); fputs (s ? "setjump" : "scmfig", stderr); fputs (".h and recompile scm\n", stderr); - exit (1); + exit (EXIT_FAILURE); } @@ -326,8 +327,8 @@ static void *invoke_main_func(void *body_data); Call MAIN_FUNC, passing it CLOSURE, ARGC, and ARGV. MAIN_FUNC should do all the work of the program (initializing other packages, reading user input, etc.) before returning. When MAIN_FUNC - returns, call exit (0); this function never returns. If you want - some other exit value, MAIN_FUNC may call exit itself. + returns, call exit (EXIT_FAILURE); this function never returns. + If you want some other exit value, MAIN_FUNC may call exit itself. scm_boot_guile arranges for program-arguments to return the strings given by ARGC and ARGV. If MAIN_FUNC modifies ARGC/ARGV, should @@ -368,7 +369,7 @@ scm_boot_guile (int argc, char ** argv, void (*main_func) (), void *closure) if (res == NULL) exit (EXIT_FAILURE); else - exit (0); + exit (EXIT_SUCCESS); } static void * |