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

New functions: scm_c_make_vector, scm_c_make_hash_table.

Browse source
This commit is contained in:
Keisuke Nishida 2001-02-02 04:56:25 +00:00
parent b8446ce883
commit 00ffa0e7d6
22 changed files with 87 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/unif.c
View file

@ -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;