diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2003-04-21 01:59:57 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2003-04-21 01:59:57 +0000 |
commit | 1685446c0d77ed3386f77b306b6b47c451394daa (patch) | |
tree | 43d8a09c25b6a4d38180397817f5dd9bea8c6ec5 /libguile/unif.c | |
parent | 9ff1720f85d19bb617c2df2f87280376f65ece9d (diff) | |
download | guile-1685446c0d77ed3386f77b306b6b47c451394daa.tar.gz |
* srfi/srfi-1.c (srfi1_ilength), libguile/list.c (scm_ilength,
scm_last_pair), libguile/unif.c (l2ra): Prefer !SCM_CONSP over
SCM_NCONSP.
* libguile/unif.c (l2ra): Eliminate redundant check.
Now, guile itself does not include any calls to SCM_NCONSP any
more.
Diffstat (limited to 'libguile/unif.c')
-rw-r--r-- | libguile/unif.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/unif.c b/libguile/unif.c index 79e16a0b1..8b77b4a1e 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -2215,7 +2215,7 @@ l2ra (SCM lst, SCM ra, unsigned long base, unsigned long k) { while (n--) { - if (SCM_IMP (lst) || SCM_NCONSP (lst)) + if (!SCM_CONSP (lst)) return 0; ok = ok && l2ra (SCM_CAR (lst), ra, base, k + 1); base += inc; @@ -2228,7 +2228,7 @@ l2ra (SCM lst, SCM ra, unsigned long base, unsigned long k) { while (n--) { - if (SCM_IMP (lst) || SCM_NCONSP (lst)) + if (!SCM_CONSP (lst)) return 0; scm_array_set_x (SCM_ARRAY_V (ra), SCM_CAR (lst), SCM_MAKINUM (base)); base += inc; |