[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/srfi ChangeLog srfi-13.c
From: |
Mikael Djurfeldt |
Subject: |
guile/guile-core/srfi ChangeLog srfi-13.c |
Date: |
Wed, 22 Aug 2001 04:58:25 -0700 |
CVSROOT: /cvs
Module name: guile
Changes by: Mikael Djurfeldt <address@hidden> 01/08/22 04:58:25
Modified files:
guile-core/srfi: ChangeLog srfi-13.c
Log message:
* tests/srfi-13.test (string-map): Swapped order of string and
proc args to conform with the srfi. (Thanks to Alex Shinn.)
* srfi-13.c (string-map): Swapped order of string and proc args to
conform with the srfi. (Thanks to Alex Shinn.)
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/ChangeLog.diff?cvsroot=OldCVS&tr1=1.62&tr2=1.63&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/srfi-13.c.diff?cvsroot=OldCVS&tr1=1.11&tr2=1.12&r1=text&r2=text
Patches:
Index: guile/guile-core/srfi/ChangeLog
diff -u guile/guile-core/srfi/ChangeLog:1.62
guile/guile-core/srfi/ChangeLog:1.63
--- guile/guile-core/srfi/ChangeLog:1.62 Sun Aug 5 03:12:37 2001
+++ guile/guile-core/srfi/ChangeLog Wed Aug 22 04:58:25 2001
@@ -1,3 +1,8 @@
+2001-08-22 Mikael Djurfeldt <address@hidden>
+
+ * srfi-13.c (string-map): Swapped order of string and proc args to
+ conform with the srfi. (Thanks to Alex Shinn.)
+
2001-08-05 Gary Houston <address@hidden>
* srfi-1.scm (check-arg-type, non-negative-integer?): a couple of new
Index: guile/guile-core/srfi/srfi-13.c
diff -u guile/guile-core/srfi/srfi-13.c:1.11
guile/guile-core/srfi/srfi-13.c:1.12
--- guile/guile-core/srfi/srfi-13.c:1.11 Thu Jun 28 09:39:00 2001
+++ guile/guile-core/srfi/srfi-13.c Wed Aug 22 04:58:25 2001
@@ -2400,7 +2400,7 @@
SCM_DEFINE (scm_string_map, "string-map", 2, 2, 0,
- (SCM s, SCM proc, SCM start, SCM end),
+ (SCM proc, SCM s, SCM start, SCM end),
"@var{proc} is a char->char procedure, it is mapped over\n"
"@var{s}. The order in which the procedure is applied to the\n"
"string elements is not specified.")
@@ -2410,10 +2410,10 @@
int cstart, cend;
SCM result;
- SCM_VALIDATE_SUBSTRING_SPEC_COPY (1, s, cstr,
+ SCM_VALIDATE_PROC (1, proc);
+ SCM_VALIDATE_SUBSTRING_SPEC_COPY (2, s, cstr,
3, start, cstart,
4, end, cend);
- SCM_VALIDATE_PROC (2, proc);
result = scm_allocate_string (cend - cstart);
p = SCM_STRING_CHARS (result);
while (cstart < cend)
@@ -2430,7 +2430,7 @@
SCM_DEFINE (scm_string_map_x, "string-map!", 2, 2, 0,
- (SCM s, SCM proc, SCM start, SCM end),
+ (SCM proc, SCM s, SCM start, SCM end),
"@var{proc} is a char->char procedure, it is mapped over\n"
"@var{s}. The order in which the procedure is applied to the\n"
"string elements is not specified. The string @var{s} is\n"
@@ -2440,10 +2440,10 @@
char * cstr, *p;
int cstart, cend;
- SCM_VALIDATE_SUBSTRING_SPEC_COPY (1, s, cstr,
+ SCM_VALIDATE_PROC (1, proc);
+ SCM_VALIDATE_SUBSTRING_SPEC_COPY (2, s, cstr,
3, start, cstart,
4, end, cend);
- SCM_VALIDATE_PROC (2, proc);
p = SCM_STRING_CHARS (s) + cstart;
while (cstart < cend)
{
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/srfi ChangeLog srfi-13.c,
Mikael Djurfeldt <=