diff options
Diffstat (limited to 'libguile/unif.c')
-rw-r--r-- | libguile/unif.c | 17 |
1 files changed, 4 insertions, 13 deletions
diff --git a/libguile/unif.c b/libguile/unif.c index 81df53a2f..e1926fe15 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -2170,7 +2170,11 @@ scm_array_to_list (v) static char s_bad_ralst[] = "Bad scm_array contents scm_list"; +#ifdef __STDC__ +static int l2ra (SCM lst, SCM ra, scm_sizet base, scm_sizet k); +#else static int l2ra (); +#endif SCM_PROC(s_list_to_uniform_array, "list->uniform-array", 3, 0, 0, scm_list_to_uniform_array); #ifdef __STDC__ @@ -2671,19 +2675,6 @@ scm_istr2bve (str, len) return SCM_BOOL_F; } -#ifdef __STDC__ -SCM -scm_array_equal_p (SCM ra0, SCM ra1) -#else -SCM -scm_array_equal_p (ra0, ra1) - SCM ra0; - SCM ra1; -#endif -{ - return SCM_BOOL_F; -} - void scm_init_unif () { |