diff options
author | Jim Blandy <jimb@red-bean.com> | 1996-09-11 20:29:44 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1996-09-11 20:29:44 +0000 |
commit | 5e840c2e1a254791505d78bef0c041369f488303 (patch) | |
tree | bed46a94b5e87e638aa5bd39a5aebd9c01c81855 /libguile/unif.c | |
parent | 3a2425b94404345deb466c3b4dbac04dd82b47f4 (diff) | |
download | guile-5e840c2e1a254791505d78bef0c041369f488303.tar.gz |
* numbers.h: Repeated declarations removed.
* ports.h (scm_close_all_ports_except): Declaration for the
function defined in ports.c added.
* posix.h: Missing declarations added.
* procs.h (scm_make_subr_opt): Missing declaration added.
* socket.h (scm_sys_gethost): Missing declaration added.
* socket.h: Redundant declarations removed (they are in fdsocket.h).
* srcprop.h (scm_set_source_property_x, scm_finish_srcprop):
Missing declarations added.
* stime.h (scm_get_internal_real_time): Repeated declarations removed.
* struct.c: Uninitialized variable `SCM answer' may be used.
* unif.c (l2ra): Declaration prototype.
* unif.c (scm_array_equal_p): Dummy definition removed (it is
defined in ramap.c).
* unif.h (scm_raprin1, scm_istr2bve, scm_array_equal_p):
Redundant declarations removed (they are in ramap.h).
* variable.h (scm_make_udvariable,
scm_make_undefined_variable): Declaration corrected to
correspond variable.c.
* vectors.h (scm_vector_move_left_x, scm_vector_move_right_x):
Missing declarations added.
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 () { |