mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

(scm_srfi1_filter_map): Have 2-arg case share finalization

Browse source 
code of 1-arg case.
This commit is contained in:
Kevin Ryde 2005-04-01 23:45:41 +00:00
parent 5fc743b48d
commit 6507b83189
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
srfi/srfi-1.c
View file

@ -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 */ /* check below that list1 is a proper list, and done */
end_list1:
lst = list1; lst = list1;
argnum = 2; argnum = 2;
} }
@ -540,11 +541,7 @@ SCM_DEFINE (scm_srfi1_filter_map, "filter-map", 2, 0, 1,
for (;;) for (;;)
{ {
if (! scm_is_pair (list1)) if (! scm_is_pair (list1))
{ goto end_list1;
lst = list1;
argnum = 2;
goto check_lst_and_done;
}
if (! scm_is_pair (list2)) if (! scm_is_pair (list2))
{ {
lst = list2; lst = list2;