summaryrefslogtreecommitdiff
path: root/libguile/unif.c
diff options
context:
space:
mode:
authorKeisuke Nishida <kxn30@po.cwru.edu>2001-02-02 04:56:25 +0000
committerKeisuke Nishida <kxn30@po.cwru.edu>2001-02-02 04:56:25 +0000
commit00ffa0e7d666ed7d7b4f7a63c95de69d18e2bee8 (patch)
treed779edbe115e20363242e8cacec89ae6e596560b /libguile/unif.c
parentb8446ce883e7155def42f479a39b6a870b318720 (diff)
downloadguile-00ffa0e7d666ed7d7b4f7a63c95de69d18e2bee8.tar.gz
New functions: scm_c_make_vector, scm_c_make_hash_table.
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 0eef7cfc4..889189ea7 100644
--- a/libguile/unif.c
+++ b/libguile/unif.c
@@ -212,13 +212,13 @@ scm_make_uve (long k, SCM prot)
#endif
else
{
- return scm_make_vector (SCM_MAKINUM (k), SCM_UNDEFINED);
+ return scm_c_make_vector (k, SCM_UNDEFINED);
}
}
else if (!SCM_INEXACTP (prot))
/* Huge non-unif vectors are NOT supported. */
/* no special scm_vector */
- return scm_make_vector (SCM_MAKINUM (k), SCM_UNDEFINED);
+ return scm_c_make_vector (k, SCM_UNDEFINED);
else if (singp (prot))
{
i = sizeof (float) * k;