summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.c
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2005-04-01 23:45:41 +0000
committerKevin Ryde <user42@zip.com.au>2005-04-01 23:45:41 +0000
commit6507b8318928b553921cb93a284f0ecb90161ed4 (patch)
tree34ef2d5e624341bd2a93a2e98be745f8bdd74df9 /srfi/srfi-1.c
parent5fc743b48d3fa30e7fd179c9f68f80db2238965e (diff)
downloadguile-6507b8318928b553921cb93a284f0ecb90161ed4.tar.gz
(scm_srfi1_filter_map): Have 2-arg case share finalization
code of 1-arg case.
Diffstat (limited to 'srfi/srfi-1.c')
-rw-r--r--srfi/srfi-1.c7
1 files changed, 2 insertions, 5 deletions
diff --git a/srfi/srfi-1.c b/srfi/srfi-1.c
index 9be4c7809..79701b0b5 100644
--- a/srfi/srfi-1.c
+++ b/srfi/srfi-1.c
@@ -527,6 +527,7 @@ SCM_DEFINE (scm_srfi1_filter_map, "filter-map", 2, 0, 1,
}
/* check below that list1 is a proper list, and done */
+ end_list1:
lst = list1;
argnum = 2;
}
@@ -540,11 +541,7 @@ SCM_DEFINE (scm_srfi1_filter_map, "filter-map", 2, 0, 1,
for (;;)
{
if (! scm_is_pair (list1))
- {
- lst = list1;
- argnum = 2;
- goto check_lst_and_done;
- }
+ goto end_list1;
if (! scm_is_pair (list2))
{
lst = list2;