diff options
author | Marius Vollmer <mvo@zagadka.de> | 2005-08-11 21:03:42 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2005-08-11 21:03:42 +0000 |
commit | 3c55f6f1e26c3c681eb21a22692f2038edb76e6a (patch) | |
tree | acd995dad965017028db50c5f370e00fc2f25c23 /srfi/srfi-1.c | |
parent | 3081aee16aa841c0189235898967ecb72b0843cb (diff) | |
download | guile-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.c | 4 |
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); |