diff options
| author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-04-18 14:12:07 +0000 |
|---|---|---|
| committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-04-18 14:12:07 +0000 |
| commit | fee7ef83a31a2c83711e726c8a346d554864352d (patch) | |
| tree | bfd63dca4e2058418939226901506101dd5896aa /libguile/options.c | |
| parent | 9d0633a8a6a9e92fe0635cd3648b063b6ef2b996 (diff) | |
| download | guile-fee7ef83a31a2c83711e726c8a346d554864352d.tar.gz | |
Fixed some SCM/scm_bits_t mixups.
Diffstat (limited to 'libguile/options.c')
| -rw-r--r-- | libguile/options.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/libguile/options.c b/libguile/options.c index bb63cb24c..c59f18759 100644 --- a/libguile/options.c +++ b/libguile/options.c @@ -124,9 +124,7 @@ static SCM protected_objects; SCM scm_options (SCM arg, scm_option options[], int n, const char *s) { - int i, docp = (!SCM_UNBNDP (arg) - && !SCM_NULLP (arg) - && (SCM_IMP (arg) || SCM_NCONSP (arg))); + int i, docp = (!SCM_UNBNDP (arg) && !SCM_NULLP (arg) && !SCM_CONSP (arg)); /* Let `arg' GC protect the arguments */ SCM new_mode = arg, ans = SCM_EOL, ls; for (i = 0; i < n; ++i) |