summaryrefslogtreecommitdiff
path: root/libguile/unif.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2003-04-21 01:35:33 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2003-04-21 01:35:33 +0000
commit9ff1720f85d19bb617c2df2f87280376f65ece9d (patch)
tree9bd55effb0baf595733e754347470d400afd8738 /libguile/unif.c
parent05b1536228c22eeeeb5db66dd0a929e5e2888bc9 (diff)
downloadguile-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.c4
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;