mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +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; ret = SCM_EOL;
loc = &ret; loc = &ret;
if (SCM_NULLP (rest)) if (scm_is_null (rest))
{ {
/* one list */ /* one list */
scm_t_trampoline_1 proc_tramp = scm_trampoline_1 (proc); 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; lst = list1;
argnum = 2; argnum = 2;
} }
else if (SCM_NULLP (SCM_CDR (rest))) else if (scm_is_null (SCM_CDR (rest)))
{ {
/* two lists */ /* two lists */
scm_t_trampoline_2 proc_tramp = scm_trampoline_2 (proc); scm_t_trampoline_2 proc_tramp = scm_trampoline_2 (proc);