mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

* convert.i.c: rename usage of HAVE_ARRAYS to SCM_HAVE_ARRAYS.

Browse source
This commit is contained in:
Rob Browning 2003-03-25 23:53:26 +00:00
parent 7a1e395c09
commit cca86e031b
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/convert.i.c
View file

@ -128,7 +128,7 @@ SCM2CTYPES (SCM obj, CTYPE *data)
}
break;
#ifdef HAVE_ARRAYS
#ifdef SCM_HAVE_ARRAYS
/* array conversions (uniform vectors) */
case ARRAYTYPE:
#ifdef ARRAYTYPE_OPTIONAL
@ -159,7 +159,7 @@ SCM2CTYPES (SCM obj, CTYPE *data)
memcpy (data, (CTYPE *) SCM_UVECTOR_BASE (obj), n * sizeof (CTYPE));
#endif
break;
#endif /* HAVE_ARRAYS */
#endif /* SCM_HAVE_ARRAYS */
#if SIZEOF_CTYPE == 1
case scm_tc7_string:
@ -179,7 +179,7 @@ SCM2CTYPES (SCM obj, CTYPE *data)
#undef FUNC_NAME
#if HAVE_ARRAYS
#if SCM_HAVE_ARRAYS
/* Converts a C array into a uniform vector, returns SCM_UNDEFINED if out
of memory. */
@ -236,7 +236,7 @@ CTYPES2UVECT_OPTIONAL (const unsigned CTYPE *data, long n)
#undef FUNC_NAME
#endif /* UVECTTYPE_OPTIONAL */
#endif /* HAVE_ARRAYS */
#endif /* SCM_HAVE_ARRAYS */
/* Converts a C array into a vector. */