summaryrefslogtreecommitdiff
path: root/libguile/script.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-03 08:47:51 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-03 08:47:51 +0000
commit54778cd31205b1f50397cf7bf92f7d8b37c99870 (patch)
treeca3676c72e75e70a0184e7c50084660e62e9d6a3 /libguile/script.c
parentabeed821987ec1476e6a7836f1ed8ba8a6185959 (diff)
downloadguile-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.c8
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),