diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-04-03 08:47:51 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-04-03 08:47:51 +0000 |
commit | 54778cd31205b1f50397cf7bf92f7d8b37c99870 (patch) | |
tree | ca3676c72e75e70a0184e7c50084660e62e9d6a3 /libguile/script.c | |
parent | abeed821987ec1476e6a7836f1ed8ba8a6185959 (diff) | |
download | guile-54778cd31205b1f50397cf7bf92f7d8b37c99870.tar.gz |
Lots of fixes to make guile (at some time) compile with strict typing.
Diffstat (limited to 'libguile/script.c')
-rw-r--r-- | libguile/script.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/script.c b/libguile/script.c index 9e428f3b8..1b9de76c6 100644 --- a/libguile/script.c +++ b/libguile/script.c @@ -459,7 +459,7 @@ scm_compile_shell_switches (int argc, char **argv) /* If we specified the -ds option, do_script points to the cdr of an expression like (load #f); we replace the car (i.e., the #f) with the script name. */ - if (do_script != SCM_EOL) + if (!SCM_NULLP (do_script)) { SCM_SETCAR (do_script, scm_makfrom0str (argv[i])); do_script = SCM_EOL; @@ -518,7 +518,7 @@ scm_compile_shell_switches (int argc, char **argv) { /* We put a dummy "load" expression, and let the -s put the filename in. */ - if (do_script != SCM_EOL) + if (!SCM_NULLP (do_script)) scm_shell_usage (1, "the -ds switch may only be specified once"); do_script = scm_cons (SCM_BOOL_F, SCM_EOL); tail = scm_cons (scm_cons (sym_load, do_script), @@ -561,7 +561,7 @@ scm_compile_shell_switches (int argc, char **argv) } /* Check to make sure the -ds got a -s. */ - if (do_script != SCM_EOL) + if (!SCM_NULLP (do_script)) scm_shell_usage (1, "the `-ds' switch requires the use of `-s' as well"); /* Make any remaining arguments available to the @@ -575,7 +575,7 @@ scm_compile_shell_switches (int argc, char **argv) } /* Handle the `-e' switch, if it was specified. */ - if (entry_point != SCM_EOL) + if (!SCM_NULLP (entry_point)) tail = scm_cons (scm_cons2 (entry_point, scm_cons (sym_command_line, SCM_EOL), SCM_EOL), |