summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.c
diff options
context:
space:
mode:
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;