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/script.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/script.c')
| -rw-r--r-- | libguile/script.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/libguile/script.c b/libguile/script.c index 3ea425cd6..03d5de194 100644 --- a/libguile/script.c +++ b/libguile/script.c @@ -22,6 +22,7 @@ # include <config.h> #endif +#include <stdlib.h> #include <stdio.h> #include <errno.h> #include <ctype.h> @@ -643,7 +644,7 @@ scm_compile_shell_switches (int argc, char **argv) || ! strcmp (argv[i], "--help")) { scm_shell_usage (0, 0); - exit (0); + exit (EXIT_SUCCESS); } else if (! strcmp (argv[i], "-v") @@ -653,7 +654,7 @@ scm_compile_shell_switches (int argc, char **argv) version_etc (stdout, scm_usage_name, PACKAGE_NAME, PACKAGE_VERSION, /* XXX: Use gettext for the string below. */ "the Guile developers", NULL); - exit (0); + exit (EXIT_SUCCESS); } else |