mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-09 13:30:26 +02:00
(scm_srfi1_filter_map): Have 2-arg case share finalization
code of 1-arg case.
This commit is contained in:
parent
5fc743b48d
commit
6507b83189
1 changed files with 2 additions and 5 deletions
|
@ -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;
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue