mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 23:50:19 +02:00
Code Activity

* list.c (scm_cons_star), ramap.c (scm_ra_sum, scm_ra_product,

Browse source 
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.
This commit is contained in:
Dirk Herrmann 2003-04-21 01:35:33 +00:00
parent 05b1536228
commit 9ff1720f85
4 changed files with 15 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/unif.c
View file

@ -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;