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

* unif.h: added some comments, removed the SCM_P macros.

Browse source 
* vports.c (sf_write): use scm_makfromstr, not scm_makfrom0str
	(thanks to Daniel Skarda).
This commit is contained in:
Gary Houston 1999-11-30 18:23:52 +00:00
parent 0328cad21e
commit 1d7bdb2562
6 changed files with 75 additions and 46 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/unif.c
View file

@ -1290,14 +1290,15 @@ scm_array_set_x (v, obj, args)
return SCM_UNSPECIFIED;
}
/* extract an array from "ra" (regularised?), which may be an smob type.
returns #f on failure. */
/* attempts to unroll an array into a one-dimensional array.
returns the unrolled array or #f if it can't be done. */
SCM_PROC(s_array_contents, "array-contents", 1, 1, 0, scm_array_contents);
SCM
scm_array_contents (ra, strict)
SCM ra;
SCM strict; /* more checks if not SCM_UNDEFINED. */
SCM strict; /* if not SCM_UNDEFINED, return #f if returned array
wouldn't have contiguous elements. */
{
SCM sra;
if (SCM_IMP (ra))