summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2005-08-11 21:03:42 +0000
committerMarius Vollmer <mvo@zagadka.de>2005-08-11 21:03:42 +0000
commit3c55f6f1e26c3c681eb21a22692f2038edb76e6a (patch)
treeacd995dad965017028db50c5f370e00fc2f25c23 /srfi/srfi-1.c
parent3081aee16aa841c0189235898967ecb72b0843cb (diff)
downloadguile-3c55f6f1e26c3c681eb21a22692f2038edb76e6a.tar.gz
Use scm_is_null instead of SCM_NULLP. Thanks to Peter Gavin!
Diffstat (limited to 'srfi/srfi-1.c')
-rw-r--r--srfi/srfi-1.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/srfi/srfi-1.c b/srfi/srfi-1.c
index a78170571..abb1b6a08 100644
--- a/srfi/srfi-1.c
+++ b/srfi/srfi-1.c
@@ -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);