mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

* srfi-1.c (srfi1_for_each): Corrected argument checking for the

Browse source 
case of two argument lists.  (Thanks to Kevin Ryde.)
This commit is contained in:
Mikael Djurfeldt 2003-02-03 14:48:25 +00:00
parent 07a68d543f
commit f9ac1c2df8
2 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
srfi/ChangeLog
View file

@ -1,3 +1,8 @@
2003-02-03 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* srfi-1.c (srfi1_for_each): Corrected argument checking for the
case of two argument lists. (Thanks to Kevin Ryde.)
2002-12-08 Rob Browning <rlb@defaultvalue.org>
* Makefile.am (srfidir): VERSION -> GUILE_EFFECTIVE_VERSION.

8
srfi/srfi-1.c
View file

@ -1,6 +1,6 @@
/* srfi-1.c --- SRFI-1 procedures for Guile
*
* Copyright (C) 2002 Free Software Foundation, Inc.
* Copyright (C) 2002, 2003 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License as
@ -175,7 +175,7 @@ scm_srfi1_map (SCM proc, SCM arg1, SCM args)
&& len >= 0 && len2 >= -1,
g_srfi1_map,
scm_cons2 (proc, arg1, args),
len2 >= 0 ? SCM_ARG3 : SCM_ARG2,
len2 >= 0 ? SCM_ARG2 : SCM_ARG3,
s_srfi1_map);
while (len > 0)
{
@ -245,10 +245,10 @@ scm_srfi1_for_each (SCM proc, SCM arg1, SCM args)
if (len < 0 || (len2 >= 0 && len2 < len))
len = len2;
SCM_GASSERTn ((SCM_NULLP (arg2) || SCM_CONSP (arg2))
&& len >= 0 && len2 < len,
&& len >= 0 && len2 >= -1,
g_srfi1_for_each,
scm_cons2 (proc, arg1, args),
len2 >= 0 ? SCM_ARG3 : SCM_ARG2,
len2 >= 0 ? SCM_ARG2 : SCM_ARG3,
s_srfi1_for_each);
while (len > 0)
{