summaryrefslogtreecommitdiff
path: root/libguile/options.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/options.c')
-rw-r--r--libguile/options.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/libguile/options.c b/libguile/options.c
index e95c12a85..731e62f79 100644
--- a/libguile/options.c
+++ b/libguile/options.c
@@ -47,6 +47,7 @@
#include "libguile/_scm.h"
#include "libguile/mallocs.h"
#include "libguile/strings.h"
+#include "libguile/lang.h"
#include "libguile/options.h"
@@ -198,7 +199,7 @@ change_option_setting (SCM args, scm_t_option options[], unsigned int n, const c
flags[i] = options[i].val;
}
- while (!SCM_NULLP (args))
+ while (!SCM_NULL_OR_NIL_P (args))
{
SCM name = SCM_CAR (args);
int found = 0;
@@ -257,7 +258,7 @@ scm_options (SCM args, scm_t_option options[], unsigned int n, const char *s)
{
if (SCM_UNBNDP (args))
return get_option_setting (options, n);
- else if (!SCM_NULLP (args) && !SCM_CONSP (args))
+ else if (!SCM_NULL_OR_NIL_P (args) && !SCM_CONSP (args))
/* Dirk:FIXME:: This criterion should be improved. IMO it is better to
* demand that args is #t if documentation should be shown than to say
* that every argument except a list will print out documentation. */