diff options
author | Kevin Ryde <user42@zip.com.au> | 2005-04-01 23:45:41 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2005-04-01 23:45:41 +0000 |
commit | 6507b8318928b553921cb93a284f0ecb90161ed4 (patch) | |
tree | 34ef2d5e624341bd2a93a2e98be745f8bdd74df9 /srfi/srfi-1.c | |
parent | 5fc743b48d3fa30e7fd179c9f68f80db2238965e (diff) | |
download | guile-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.c | 7 |
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; |