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

Remove leading whitespace before empty docstrings.

Browse source
This commit is contained in:
Greg J. Badros 1999-12-13 00:44:10 +00:00
parent 6aca8c6cbe
commit 717050c8d5
19 changed files with 44 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/boolean.c
View file

@ -54,7 +54,7 @@
GUILE_PROC(scm_not, "not", 1, 0, 0, GUILE_PROC(scm_not, "not", 1, 0, 0,
(SCM x), (SCM x),
"") "")
#define FUNC_NAME s_scm_not #define FUNC_NAME s_scm_not
{ {
return SCM_BOOL(SCM_FALSEP(x)); return SCM_BOOL(SCM_FALSEP(x));

2
libguile/feature.c
View file

@ -305,7 +305,7 @@ scm_c_run_hook (SCM hook, SCM args)
GUILE_PROC (scm_hook_to_list, "hook->list", 1, 0, 0, GUILE_PROC (scm_hook_to_list, "hook->list", 1, 0, 0,
(SCM hook), (SCM hook),
"") "")
#define FUNC_NAME s_scm_hook_to_list #define FUNC_NAME s_scm_hook_to_list
{ {
SCM_VALIDATE_HOOK(1,hook); SCM_VALIDATE_HOOK(1,hook);

6
libguile/lang.c
View file

@ -79,7 +79,7 @@ GUILE_PROC (scm_nil_cons, "nil-cons", 2, 0, 0,
GUILE_PROC (scm_nil_car, "nil-car", 1, 0, 0, GUILE_PROC (scm_nil_car, "nil-car", 1, 0, 0,
(SCM x), (SCM x),
"") "")
#define FUNC_NAME s_scm_nil_car #define FUNC_NAME s_scm_nil_car
{ {
if (SCM_NILP (x)) if (SCM_NILP (x))
@ -91,7 +91,7 @@ GUILE_PROC (scm_nil_car, "nil-car", 1, 0, 0,
GUILE_PROC (scm_nil_cdr, "nil-cdr", 1, 0, 0, GUILE_PROC (scm_nil_cdr, "nil-cdr", 1, 0, 0,
(SCM x), (SCM x),
"") "")
#define FUNC_NAME s_scm_nil_cdr #define FUNC_NAME s_scm_nil_cdr
{ {
if (SCM_NILP (x)) if (SCM_NILP (x))
@ -105,7 +105,7 @@ GUILE_PROC (scm_nil_cdr, "nil-cdr", 1, 0, 0,
Could use SCM_BOOL, below, otherwise */ Could use SCM_BOOL, below, otherwise */
GUILE_PROC (scm_null, "null", 1, 0, 0, GUILE_PROC (scm_null, "null", 1, 0, 0,
(SCM x), (SCM x),
"") "")
#define FUNC_NAME s_scm_null #define FUNC_NAME s_scm_null
{ {
return (SCM_NILP (x) || SCM_NULLP (x) || SCM_FALSEP (x)) ? scm_t : scm_nil; return (SCM_NILP (x) || SCM_NULLP (x) || SCM_FALSEP (x)) ? scm_t : scm_nil;

12
libguile/objects.c
View file

@ -361,7 +361,7 @@ scm_call_generic_3 (SCM gf, SCM a1, SCM a2, SCM a3)
GUILE_PROC (scm_entity_p, "entity?", 1, 0, 0, GUILE_PROC (scm_entity_p, "entity?", 1, 0, 0,
(SCM obj), (SCM obj),
"") "")
#define FUNC_NAME s_scm_entity_p #define FUNC_NAME s_scm_entity_p
{ {
return SCM_BOOL(SCM_NIMP (obj) && SCM_STRUCTP (obj) && SCM_I_ENTITYP (obj)); return SCM_BOOL(SCM_NIMP (obj) && SCM_STRUCTP (obj) && SCM_I_ENTITYP (obj));
@ -370,7 +370,7 @@ GUILE_PROC (scm_entity_p, "entity?", 1, 0, 0,
GUILE_PROC (scm_operator_p, "operator?", 1, 0, 0, GUILE_PROC (scm_operator_p, "operator?", 1, 0, 0,
(SCM obj), (SCM obj),
"") "")
#define FUNC_NAME s_scm_operator_p #define FUNC_NAME s_scm_operator_p
{ {
return SCM_BOOL(SCM_NIMP (obj) return SCM_BOOL(SCM_NIMP (obj)
@ -382,7 +382,7 @@ GUILE_PROC (scm_operator_p, "operator?", 1, 0, 0,
GUILE_PROC (scm_set_object_procedure_x, "set-object-procedure!", 2, 0, 0, GUILE_PROC (scm_set_object_procedure_x, "set-object-procedure!", 2, 0, 0,
(SCM obj, SCM proc), (SCM obj, SCM proc),
"") "")
#define FUNC_NAME s_scm_set_object_procedure_x #define FUNC_NAME s_scm_set_object_procedure_x
{ {
SCM_ASSERT (SCM_NIMP (obj) && SCM_STRUCTP (obj) SCM_ASSERT (SCM_NIMP (obj) && SCM_STRUCTP (obj)
@ -405,7 +405,7 @@ GUILE_PROC (scm_set_object_procedure_x, "set-object-procedure!", 2, 0, 0,
#ifdef GUILE_DEBUG #ifdef GUILE_DEBUG
GUILE_PROC (scm_object_procedure, "object-procedure", 1, 0, 0, GUILE_PROC (scm_object_procedure, "object-procedure", 1, 0, 0,
(SCM obj), (SCM obj),
"") "")
#define FUNC_NAME s_scm_object_procedure #define FUNC_NAME s_scm_object_procedure
{ {
SCM_ASSERT (SCM_NIMP (obj) && SCM_STRUCTP (obj) SCM_ASSERT (SCM_NIMP (obj) && SCM_STRUCTP (obj)
@ -440,7 +440,7 @@ scm_i_make_class_object (SCM meta,
GUILE_PROC (scm_make_class_object, "make-class-object", 2, 0, 0, GUILE_PROC (scm_make_class_object, "make-class-object", 2, 0, 0,
(SCM metaclass, SCM layout), (SCM metaclass, SCM layout),
"") "")
#define FUNC_NAME s_scm_make_class_object #define FUNC_NAME s_scm_make_class_object
{ {
unsigned long flags = 0; unsigned long flags = 0;
@ -454,7 +454,7 @@ GUILE_PROC (scm_make_class_object, "make-class-object", 2, 0, 0,
GUILE_PROC (scm_make_subclass_object, "make-subclass-object", 2, 0, 0, GUILE_PROC (scm_make_subclass_object, "make-subclass-object", 2, 0, 0,
(SCM class, SCM layout), (SCM class, SCM layout),
"") "")
#define FUNC_NAME s_scm_make_subclass_object #define FUNC_NAME s_scm_make_subclass_object
{ {
SCM pl; SCM pl;

2
libguile/ports.c
View file

@ -248,7 +248,7 @@ GUILE_PROC(scm_char_ready_p, "char-ready?", 0, 1, 0,
/* Clear a port's read buffers, returning the contents. */ /* Clear a port's read buffers, returning the contents. */
GUILE_PROC (scm_drain_input, "drain-input", 1, 0, 0, GUILE_PROC (scm_drain_input, "drain-input", 1, 0, 0,
(SCM port), (SCM port),
"") "")
#define FUNC_NAME s_scm_drain_input #define FUNC_NAME s_scm_drain_input
{ {
SCM result; SCM result;

2
libguile/print.c
View file

@ -184,7 +184,7 @@ static SCM print_state_pool;
GUILE_PROC(scm_current_pstate, "current-pstate", 0, 0, 0, GUILE_PROC(scm_current_pstate, "current-pstate", 0, 0, 0,
(), (),
"") "")
#define FUNC_NAME s_scm_current_pstate #define FUNC_NAME s_scm_current_pstate
{ {
return SCM_CADR (print_state_pool); return SCM_CADR (print_state_pool);

6
libguile/procs.c
View file

@ -297,7 +297,7 @@ GUILE_PROC(scm_procedure_documentation, "procedure-documentation", 1, 0, 0,
GUILE_PROC (scm_procedure_with_setter_p, "procedure-with-setter?", 1, 0, 0, GUILE_PROC (scm_procedure_with_setter_p, "procedure-with-setter?", 1, 0, 0,
(SCM obj), (SCM obj),
"") "")
#define FUNC_NAME s_scm_procedure_with_setter_p #define FUNC_NAME s_scm_procedure_with_setter_p
{ {
return SCM_BOOL(SCM_NIMP (obj) && SCM_PROCEDURE_WITH_SETTER_P (obj)); return SCM_BOOL(SCM_NIMP (obj) && SCM_PROCEDURE_WITH_SETTER_P (obj));
@ -306,7 +306,7 @@ GUILE_PROC (scm_procedure_with_setter_p, "procedure-with-setter?", 1, 0, 0,
GUILE_PROC (scm_make_procedure_with_setter, "make-procedure-with-setter", 2, 0, 0, GUILE_PROC (scm_make_procedure_with_setter, "make-procedure-with-setter", 2, 0, 0,
(SCM procedure, SCM setter), (SCM procedure, SCM setter),
"") "")
#define FUNC_NAME s_scm_make_procedure_with_setter #define FUNC_NAME s_scm_make_procedure_with_setter
{ {
SCM z; SCM z;
@ -323,7 +323,7 @@ GUILE_PROC (scm_make_procedure_with_setter, "make-procedure-with-setter", 2, 0,
GUILE_PROC (scm_procedure, "procedure", 1, 0, 0, GUILE_PROC (scm_procedure, "procedure", 1, 0, 0,
(SCM proc), (SCM proc),
"") "")
#define FUNC_NAME s_scm_procedure #define FUNC_NAME s_scm_procedure
{ {
SCM_VALIDATE_NIM (1,proc); SCM_VALIDATE_NIM (1,proc);

16
libguile/random.c
View file

@ -352,7 +352,7 @@ SCM_GLOBAL_VCELL_INIT (scm_var_random_state, "*random-state*", scm_seed_to_rando
GUILE_PROC (scm_random, "random", 1, 1, 0, GUILE_PROC (scm_random, "random", 1, 1, 0,
(SCM n, SCM state), (SCM n, SCM state),
"") "")
#define FUNC_NAME s_scm_random #define FUNC_NAME s_scm_random
{ {
if (SCM_UNBNDP (state)) if (SCM_UNBNDP (state))
@ -375,7 +375,7 @@ GUILE_PROC (scm_random, "random", 1, 1, 0,
GUILE_PROC (scm_copy_random_state, "copy-random-state", 0, 1, 0, GUILE_PROC (scm_copy_random_state, "copy-random-state", 0, 1, 0,
(SCM state), (SCM state),
"") "")
#define FUNC_NAME s_scm_copy_random_state #define FUNC_NAME s_scm_copy_random_state
{ {
if (SCM_UNBNDP (state)) if (SCM_UNBNDP (state))
@ -387,7 +387,7 @@ GUILE_PROC (scm_copy_random_state, "copy-random-state", 0, 1, 0,
GUILE_PROC (scm_seed_to_random_state, "seed->random-state", 1, 0, 0, GUILE_PROC (scm_seed_to_random_state, "seed->random-state", 1, 0, 0,
(SCM seed), (SCM seed),
"") "")
#define FUNC_NAME s_scm_seed_to_random_state #define FUNC_NAME s_scm_seed_to_random_state
{ {
if (SCM_NUMBERP (seed)) if (SCM_NUMBERP (seed))
@ -400,7 +400,7 @@ GUILE_PROC (scm_seed_to_random_state, "seed->random-state", 1, 0, 0,
GUILE_PROC (scm_random_uniform, "random:uniform", 0, 1, 0, GUILE_PROC (scm_random_uniform, "random:uniform", 0, 1, 0,
(SCM state), (SCM state),
"") "")
#define FUNC_NAME s_scm_random_uniform #define FUNC_NAME s_scm_random_uniform
{ {
if (SCM_UNBNDP (state)) if (SCM_UNBNDP (state))
@ -412,7 +412,7 @@ GUILE_PROC (scm_random_uniform, "random:uniform", 0, 1, 0,
GUILE_PROC (scm_random_normal, "random:normal", 0, 1, 0, GUILE_PROC (scm_random_normal, "random:normal", 0, 1, 0,
(SCM state), (SCM state),
"") "")
#define FUNC_NAME s_scm_random_normal #define FUNC_NAME s_scm_random_normal
{ {
if (SCM_UNBNDP (state)) if (SCM_UNBNDP (state))
@ -463,7 +463,7 @@ vector_sum_squares (SCM v)
*/ */
GUILE_PROC (scm_random_solid_sphere_x, "random:solid-sphere!", 1, 1, 0, GUILE_PROC (scm_random_solid_sphere_x, "random:solid-sphere!", 1, 1, 0,
(SCM v, SCM state), (SCM v, SCM state),
"") "")
#define FUNC_NAME s_scm_random_solid_sphere_x #define FUNC_NAME s_scm_random_solid_sphere_x
{ {
SCM_ASSERT (SCM_NIMP (v) SCM_ASSERT (SCM_NIMP (v)
@ -483,7 +483,7 @@ GUILE_PROC (scm_random_solid_sphere_x, "random:solid-sphere!", 1, 1, 0,
GUILE_PROC (scm_random_hollow_sphere_x, "random:hollow-sphere!", 1, 1, 0, GUILE_PROC (scm_random_hollow_sphere_x, "random:hollow-sphere!", 1, 1, 0,
(SCM v, SCM state), (SCM v, SCM state),
"") "")
#define FUNC_NAME s_scm_random_hollow_sphere_x #define FUNC_NAME s_scm_random_hollow_sphere_x
{ {
SCM_ASSERT (SCM_NIMP (v) SCM_ASSERT (SCM_NIMP (v)
@ -526,7 +526,7 @@ GUILE_PROC (scm_random_normal_vector_x, "random:normal-vector!", 1, 1, 0,
GUILE_PROC (scm_random_exp, "random:exp", 0, 1, 0, GUILE_PROC (scm_random_exp, "random:exp", 0, 1, 0,
(SCM state), (SCM state),
"") "")
#define FUNC_NAME s_scm_random_exp #define FUNC_NAME s_scm_random_exp
{ {
if (SCM_UNBNDP (state)) if (SCM_UNBNDP (state))

2
libguile/regex-posix.c
View file

@ -187,7 +187,7 @@ GUILE_PROC (scm_make_regexp, "make-regexp", 1, 0, 1,
GUILE_PROC (scm_regexp_exec, "regexp-exec", 2, 2, 0, GUILE_PROC (scm_regexp_exec, "regexp-exec", 2, 2, 0,
(SCM rx, SCM str, SCM start, SCM flags), (SCM rx, SCM str, SCM start, SCM flags),
"") "")
#define FUNC_NAME s_scm_regexp_exec #define FUNC_NAME s_scm_regexp_exec
{ {
int status, nmatches, offset; int status, nmatches, offset;

2
libguile/simpos.c
View file

@ -113,7 +113,7 @@ GUILE_PROC (scm_getenv, "getenv", 1, 0, 0,
/* simple exit, without unwinding the scheme stack or flushing ports. */ /* simple exit, without unwinding the scheme stack or flushing ports. */
GUILE_PROC (scm_primitive_exit, "primitive-exit", 0, 1, 0, GUILE_PROC (scm_primitive_exit, "primitive-exit", 0, 1, 0,
(SCM status), (SCM status),
"") "")
#define FUNC_NAME s_scm_primitive_exit #define FUNC_NAME s_scm_primitive_exit
{ {
int cstatus = 0; int cstatus = 0;

8
libguile/socket.c
View file

@ -73,7 +73,7 @@
GUILE_PROC (scm_htons, "htons", 1, 0, 0, GUILE_PROC (scm_htons, "htons", 1, 0, 0,
(SCM in), (SCM in),
"") "")
#define FUNC_NAME s_scm_htons #define FUNC_NAME s_scm_htons
{ {
unsigned short c_in; unsigned short c_in;
@ -88,7 +88,7 @@ GUILE_PROC (scm_htons, "htons", 1, 0, 0,
GUILE_PROC (scm_ntohs, "ntohs", 1, 0, 0, GUILE_PROC (scm_ntohs, "ntohs", 1, 0, 0,
(SCM in), (SCM in),
"") "")
#define FUNC_NAME s_scm_ntohs #define FUNC_NAME s_scm_ntohs
{ {
unsigned short c_in; unsigned short c_in;
@ -103,7 +103,7 @@ GUILE_PROC (scm_ntohs, "ntohs", 1, 0, 0,
GUILE_PROC (scm_htonl, "htonl", 1, 0, 0, GUILE_PROC (scm_htonl, "htonl", 1, 0, 0,
(SCM in), (SCM in),
"") "")
#define FUNC_NAME s_scm_htonl #define FUNC_NAME s_scm_htonl
{ {
unsigned long c_in = SCM_NUM2ULONG (1,in); unsigned long c_in = SCM_NUM2ULONG (1,in);
@ -113,7 +113,7 @@ GUILE_PROC (scm_htonl, "htonl", 1, 0, 0,
GUILE_PROC (scm_ntohl, "ntohl", 1, 0, 0, GUILE_PROC (scm_ntohl, "ntohl", 1, 0, 0,
(SCM in), (SCM in),
"") "")
#define FUNC_NAME s_scm_ntohl #define FUNC_NAME s_scm_ntohl
{ {
unsigned long c_in = SCM_NUM2ULONG (1,in); unsigned long c_in = SCM_NUM2ULONG (1,in);

2
libguile/srcprop.c
View file

@ -165,7 +165,7 @@ scm_srcprops_to_plist (SCM obj)
GUILE_PROC (scm_source_properties, "source-properties", 1, 0, 0, GUILE_PROC (scm_source_properties, "source-properties", 1, 0, 0,
(SCM obj), (SCM obj),
"") "")
#define FUNC_NAME s_scm_source_properties #define FUNC_NAME s_scm_source_properties
{ {
SCM p; SCM p;

4
libguile/stime.c
View file

@ -155,7 +155,7 @@ timet scm_your_base = 0;
GUILE_PROC(scm_get_internal_real_time, "get-internal-real-time", 0, 0, 0, GUILE_PROC(scm_get_internal_real_time, "get-internal-real-time", 0, 0, 0,
(), (),
"") "")
#define FUNC_NAME s_scm_get_internal_real_time #define FUNC_NAME s_scm_get_internal_real_time
{ {
return scm_long2num((time((timet*)0) - scm_your_base) * (int)CLKTCK); return scm_long2num((time((timet*)0) - scm_your_base) * (int)CLKTCK);
@ -223,7 +223,7 @@ GUILE_PROC(scm_current_time, "current-time", 0, 0, 0,
GUILE_PROC (scm_gettimeofday, "gettimeofday", 0, 0, 0, GUILE_PROC (scm_gettimeofday, "gettimeofday", 0, 0, 0,
(void), (void),
"") "")
#define FUNC_NAME s_scm_gettimeofday #define FUNC_NAME s_scm_gettimeofday
{ {
#ifdef HAVE_GETTIMEOFDAY #ifdef HAVE_GETTIMEOFDAY

4
libguile/strop.c
View file

@ -129,7 +129,7 @@ SCM_REGISTER_PROC(s_substring_move_right_x, "substring-move-right!", 5, 0, 0, sc
GUILE_PROC(scm_substring_move_x, "substring-move!", 5, 0, 0, GUILE_PROC(scm_substring_move_x, "substring-move!", 5, 0, 0,
(SCM str1, SCM start1, SCM end1, SCM str2, SCM start2), (SCM str1, SCM start1, SCM end1, SCM str2, SCM start2),
"") "")
#define FUNC_NAME s_scm_substring_move_x #define FUNC_NAME s_scm_substring_move_x
{ {
long s1, s2, e, len; long s1, s2, e, len;
@ -157,7 +157,7 @@ GUILE_PROC(scm_substring_move_x, "substring-move!", 5, 0, 0,
GUILE_PROC(scm_substring_fill_x, "substring-fill!", 4, 0, 0, GUILE_PROC(scm_substring_fill_x, "substring-fill!", 4, 0, 0,
(SCM str, SCM start, SCM end, SCM fill), (SCM str, SCM start, SCM end, SCM fill),
"") "")
#define FUNC_NAME s_scm_substring_fill_x #define FUNC_NAME s_scm_substring_fill_x
{ {
long i, e; long i, e;

6
libguile/struct.c
View file

@ -360,7 +360,7 @@ scm_struct_free_entity (SCM *vtable, SCM *data)
GUILE_PROC (scm_make_struct, "make-struct", 2, 0, 1, GUILE_PROC (scm_make_struct, "make-struct", 2, 0, 1,
(SCM vtable, SCM tail_array_size, SCM init), (SCM vtable, SCM tail_array_size, SCM init),
"") "")
#define FUNC_NAME s_scm_make_struct #define FUNC_NAME s_scm_make_struct
{ {
SCM layout; SCM layout;
@ -642,7 +642,7 @@ scm_struct_create_handle (SCM obj)
GUILE_PROC (scm_struct_vtable_name, "struct-vtable-name", 1, 0, 0, GUILE_PROC (scm_struct_vtable_name, "struct-vtable-name", 1, 0, 0,
(SCM vtable), (SCM vtable),
"") "")
#define FUNC_NAME s_scm_struct_vtable_name #define FUNC_NAME s_scm_struct_vtable_name
{ {
SCM_VALIDATE_VTABLE(1,vtable); SCM_VALIDATE_VTABLE(1,vtable);
@ -652,7 +652,7 @@ GUILE_PROC (scm_struct_vtable_name, "struct-vtable-name", 1, 0, 0,
GUILE_PROC (scm_set_struct_vtable_name_x, "set-struct-vtable-name!", 2, 0, 0, GUILE_PROC (scm_set_struct_vtable_name_x, "set-struct-vtable-name!", 2, 0, 0,
(SCM vtable, SCM name), (SCM vtable, SCM name),
"") "")
#define FUNC_NAME s_scm_set_struct_vtable_name_x #define FUNC_NAME s_scm_set_struct_vtable_name_x
{ {
SCM_VALIDATE_VTABLE(1,vtable); SCM_VALIDATE_VTABLE(1,vtable);

2
libguile/symbols.c
View file

@ -682,7 +682,7 @@ GUILE_PROC(scm_symbol_pref, "symbol-pref", 1, 0, 0,
GUILE_PROC(scm_symbol_fset_x, "symbol-fset!", 2, 0, 0, GUILE_PROC(scm_symbol_fset_x, "symbol-fset!", 2, 0, 0,
(SCM s, SCM val), (SCM s, SCM val),
"") "")
#define FUNC_NAME s_scm_symbol_fset_x #define FUNC_NAME s_scm_symbol_fset_x
{ {
SCM_VALIDATE_SYMBOL(1,s); SCM_VALIDATE_SYMBOL(1,s);

4
libguile/variable.c
View file

@ -101,7 +101,7 @@ make_vcell_variable (SCM vcell)
GUILE_PROC(scm_make_variable, "make-variable", 1, 1, 0, GUILE_PROC(scm_make_variable, "make-variable", 1, 1, 0,
(SCM init, SCM name_hint), (SCM init, SCM name_hint),
"") "")
#define FUNC_NAME s_scm_make_variable #define FUNC_NAME s_scm_make_variable
{ {
SCM val_cell; SCM val_cell;
@ -121,7 +121,7 @@ GUILE_PROC(scm_make_variable, "make-variable", 1, 1, 0,
GUILE_PROC(scm_make_undefined_variable, "make-undefined-variable", 0, 1, 0, GUILE_PROC(scm_make_undefined_variable, "make-undefined-variable", 0, 1, 0,
(SCM name_hint), (SCM name_hint),
"") "")
#define FUNC_NAME s_scm_make_undefined_variable #define FUNC_NAME s_scm_make_undefined_variable
{ {
SCM vcell; SCM vcell;

4
libguile/vectors.c
View file

@ -266,7 +266,7 @@ scm_vector_equal_p(SCM x, SCM y)
GUILE_PROC (scm_vector_move_left_x, "vector-move-left!", 5, 0, 0, GUILE_PROC (scm_vector_move_left_x, "vector-move-left!", 5, 0, 0,
(SCM vec1, SCM start1, SCM end1, SCM vec2, SCM start2), (SCM vec1, SCM start1, SCM end1, SCM vec2, SCM start2),
"") "")
#define FUNC_NAME s_scm_vector_move_left_x #define FUNC_NAME s_scm_vector_move_left_x
{ {
long i; long i;
@ -289,7 +289,7 @@ GUILE_PROC (scm_vector_move_left_x, "vector-move-left!", 5, 0, 0,
GUILE_PROC (scm_vector_move_right_x, "vector-move-right!", 5, 0, 0, GUILE_PROC (scm_vector_move_right_x, "vector-move-right!", 5, 0, 0,
(SCM vec1, SCM start1, SCM end1, SCM vec2, SCM start2), (SCM vec1, SCM start1, SCM end1, SCM vec2, SCM start2),
"") "")
#define FUNC_NAME s_scm_vector_move_right_x #define FUNC_NAME s_scm_vector_move_right_x
{ {
long i; long i;

2
libguile/weaks.c
View file

@ -162,7 +162,7 @@ GUILE_PROC (scm_make_doubly_weak_hash_table, "make-doubly-weak-hash-table", 1, 0
GUILE_PROC(scm_weak_key_hash_table_p, "weak-key-hash-table?", 1, 0, 0, GUILE_PROC(scm_weak_key_hash_table_p, "weak-key-hash-table?", 1, 0, 0,
(SCM x), (SCM x),
"") "")
#define FUNC_NAME s_scm_weak_key_hash_table_p #define FUNC_NAME s_scm_weak_key_hash_table_p
{ {
return SCM_BOOL(SCM_NIMP (x) && SCM_WVECTP (x) && SCM_IS_WHVEC(x)); return SCM_BOOL(SCM_NIMP (x) && SCM_WVECTP (x) && SCM_IS_WHVEC(x));