mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 20:30:28 +02:00
Code Activity

* unif.h, unif.c (scm_array_creator): New.

Browse source 
(scm_i_get_old_prototype): New.
(scm_array_prototype): use it to return old-style prototype, never
return creators.
(scm_make_uve): Use scm_call_1 instead of scm_call_2 with a second
arg of SCM_UNDEFINED.  The latter is wrong.
This commit is contained in:
Marius Vollmer 2004-10-29 15:41:26 +00:00
parent c0fc64c806
commit ab1be174c2
2 changed files with 80 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/unif.h
View file

@ -118,6 +118,7 @@ SCM_API SCM scm_array_to_list (SCM v);
SCM_API SCM scm_list_to_uniform_array (SCM ndim, SCM prot, SCM lst);
SCM_API int scm_raprin1 (SCM exp, SCM port, scm_print_state *pstate);
SCM_API SCM scm_array_prototype (SCM ra);
SCM_API SCM scm_array_creator (SCM ra);
SCM_API SCM scm_i_read_array (SCM port, int c);