mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

* eval.c, filesys.c, fluids.c, gc.c, gh_data.c, init.c, kw.c,

Browse source 
net_db.c, posix.c, print.c, regex-posix.c, scmsigs.c, socket.c,
stime.c, symbols.c, unif.c, vectors.c, weaks.c: Removed third
argument in call to scm_make_vector.
This commit is contained in:
Mikael Djurfeldt 1998-07-12 00:10:02 +00:00
parent a61ef59b0b
commit a8741caa54
17 changed files with 27 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/regex-posix.c
View file

@ -249,8 +249,7 @@ scm_regexp_exec (SCM rx, SCM str, SCM start, SCM flags)
int i;
/* The match vector must include a cell for the string that was matched,
so add 1. */
mvec = scm_make_vector (SCM_MAKINUM (nmatches + 1), SCM_UNSPECIFIED,
SCM_UNDEFINED);
mvec = scm_make_vector (SCM_MAKINUM (nmatches + 1), SCM_UNSPECIFIED);
SCM_VELTS(mvec)[0] = str;
for (i = 0; i < nmatches; ++i)
SCM_VELTS(mvec)[i+1] = scm_cons(SCM_MAKINUM(matches[i].rm_so + offset),