summaryrefslogtreecommitdiff
path: root/libguile/unif.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1998-07-12 00:10:02 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1998-07-12 00:10:02 +0000
commita8741caa54fa6fc14bc290c40cc97361db850953 (patch)
tree0cc6d2e9e5f5dc6c85497eb51de3b5339dec95b6 /libguile/unif.c
parenta61ef59b0bb8c556d2ffb950b7f24674cd61034b (diff)
downloadguile-a8741caa54fa6fc14bc290c40cc97361db850953.tar.gz
* eval.c, filesys.c, fluids.c, gc.c, gh_data.c, init.c, kw.c,
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.
Diffstat (limited to 'libguile/unif.c')
-rw-r--r--libguile/unif.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/unif.c b/libguile/unif.c
index fb83cee72..fd1d752b9 100644
--- a/libguile/unif.c
+++ b/libguile/unif.c
@@ -242,7 +242,7 @@ scm_make_uve (k, prot)
#endif
else
{
- return scm_make_vector (SCM_MAKINUM (k), SCM_UNDEFINED, SCM_UNDEFINED);
+ return scm_make_vector (SCM_MAKINUM (k), SCM_UNDEFINED);
}
}
else
@@ -250,7 +250,7 @@ scm_make_uve (k, prot)
if (SCM_IMP (prot) || !SCM_INEXP (prot))
#endif
/* Huge non-unif vectors are NOT supported. */
- return scm_make_vector (SCM_MAKINUM (k), SCM_UNDEFINED, SCM_UNDEFINED); /* no special scm_vector */
+ return scm_make_vector (SCM_MAKINUM (k), SCM_UNDEFINED); /* no special scm_vector */
#ifdef SCM_FLOATS
#ifdef SCM_SINGLES
else if (SCM_SINGP (prot))