mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

Use scm_is_null instead of SCM_NULLP. Thanks to Peter Gavin!

Browse source
This commit is contained in:
Marius Vollmer 2005-08-11 21:03:42 +00:00
parent 3081aee16a
commit 3c55f6f1e2
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
srfi/srfi-1.c
View file

@ -720,7 +720,7 @@ SCM_DEFINE (scm_srfi1_filter_map, "filter-map", 2, 0, 1,
ret = SCM_EOL;
loc = &ret;
if (SCM_NULLP (rest))
if (scm_is_null (rest))
{
/* one list */
scm_t_trampoline_1 proc_tramp = scm_trampoline_1 (proc);
@ -742,7 +742,7 @@ SCM_DEFINE (scm_srfi1_filter_map, "filter-map", 2, 0, 1,
lst = list1;
argnum = 2;
}
else if (SCM_NULLP (SCM_CDR (rest)))
else if (scm_is_null (SCM_CDR (rest)))
{
/* two lists */
scm_t_trampoline_2 proc_tramp = scm_trampoline_2 (proc);