diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2003-04-21 01:35:33 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2003-04-21 01:35:33 +0000 |
commit | 9ff1720f85d19bb617c2df2f87280376f65ece9d (patch) | |
tree | 9bd55effb0baf595733e754347470d400afd8738 /libguile/unif.c | |
parent | 05b1536228c22eeeeb5db66dd0a929e5e2888bc9 (diff) | |
download | guile-9ff1720f85d19bb617c2df2f87280376f65ece9d.tar.gz |
* list.c (scm_cons_star), ramap.c (scm_ra_sum, scm_ra_product,
scm_array_map_x), unif.c (l2ra): Prefer !SCM_NULLP over
SCM_NNULLP. Now, guile itself does not include any calls to
SCM_NNULLP 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 a11a49d50..79e16a0b1 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -2221,7 +2221,7 @@ l2ra (SCM lst, SCM ra, unsigned long base, unsigned long k) base += inc; lst = SCM_CDR (lst); } - if (SCM_NNULLP (lst)) + if (!SCM_NULLP (lst)) return 0; } else @@ -2234,7 +2234,7 @@ l2ra (SCM lst, SCM ra, unsigned long base, unsigned long k) base += inc; lst = SCM_CDR (lst); } - if (SCM_NNULLP (lst)) + if (!SCM_NULLP (lst)) return 0; } return ok; |