diff options
Diffstat (limited to 'libguile/unif.c')
-rw-r--r-- | libguile/unif.c | 4 |
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; |