mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +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

5
libguile/fluids.c
View file

@ -56,7 +56,7 @@ SCM
scm_make_initial_fluids ()
{
return scm_make_vector (SCM_MAKINUM (INITIAL_FLUIDS),
SCM_BOOL_F, SCM_BOOL_F);
SCM_BOOL_F);
}
static void grow_fluids SCM_P ((scm_root_state *, int new_length));
@ -70,8 +70,7 @@ grow_fluids (root_state, new_length)
old_fluids = root_state->fluids;
old_length = SCM_LENGTH (old_fluids);
new_fluids = scm_make_vector (SCM_MAKINUM (new_length),
SCM_BOOL_F, SCM_BOOL_F);
new_fluids = scm_make_vector (SCM_MAKINUM (new_length), SCM_BOOL_F);
i = 0;
while (i < old_length)
{