Remove leading whitespace before empty docstrings.

diff --git a/libguile/boolean.c b/libguile/boolean.c
index f6cc5b2..e0bfd70 100644 (file)
--- a/libguile/boolean.c
+++ b/libguile/boolean.c
@@ -54,7 +54,7 @@
 
 GUILE_PROC(scm_not, "not", 1, 0, 0, 
            (SCM x),
-           "")
+"")
 #define FUNC_NAME s_scm_not
 {
   return SCM_BOOL(SCM_FALSEP(x));

diff --git a/libguile/feature.c b/libguile/feature.c
index 3038c9a..efff9d7 100644 (file)
--- a/libguile/feature.c
+++ b/libguile/feature.c
@@ -305,7 +305,7 @@ scm_c_run_hook (SCM hook, SCM args)
 
 GUILE_PROC (scm_hook_to_list, "hook->list", 1, 0, 0, 
             (SCM hook),
-            "")
+"")
 #define FUNC_NAME s_scm_hook_to_list
 {
   SCM_VALIDATE_HOOK(1,hook);

diff --git a/libguile/lang.c b/libguile/lang.c
index c3ea7eb..2518130 100644 (file)
--- a/libguile/lang.c
+++ b/libguile/lang.c
@@ -79,7 +79,7 @@ GUILE_PROC (scm_nil_cons, "nil-cons", 2, 0, 0,
 
 GUILE_PROC (scm_nil_car, "nil-car", 1, 0, 0, 
             (SCM x),
-            "")
+"")
 #define FUNC_NAME s_scm_nil_car
 {
   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, 
             (SCM x),
-            "")
+"")
 #define FUNC_NAME s_scm_nil_cdr
 {
   if (SCM_NILP (x))
@@ -105,7 +105,7 @@ GUILE_PROC (scm_nil_cdr, "nil-cdr", 1, 0, 0,
    Could use SCM_BOOL, below, otherwise */
 GUILE_PROC (scm_null, "null", 1, 0, 0, 
             (SCM x),
-            "")
+"")
 #define FUNC_NAME s_scm_null
 {
   return (SCM_NILP (x) || SCM_NULLP (x) || SCM_FALSEP (x)) ? scm_t : scm_nil;

diff --git a/libguile/objects.c b/libguile/objects.c
index 538aa22..b6b9e0d 100644 (file)
--- a/libguile/objects.c
+++ b/libguile/objects.c
@@ -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, 
             (SCM obj),
-            "")
+"")
 #define FUNC_NAME s_scm_entity_p
 {
   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, 
             (SCM obj),
-            "")
+"")
 #define FUNC_NAME s_scm_operator_p
 {
   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, 
             (SCM obj, SCM proc),
-            "")
+"")
 #define FUNC_NAME s_scm_set_object_procedure_x
 {
   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
 GUILE_PROC (scm_object_procedure, "object-procedure", 1, 0, 0, 
             (SCM obj),
-            "")
+"")
 #define FUNC_NAME s_scm_object_procedure
 {
   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, 
             (SCM metaclass, SCM layout),
-            "")
+"")
 #define FUNC_NAME s_scm_make_class_object
 {
   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, 
             (SCM class, SCM layout),
-            "")
+"")
 #define FUNC_NAME s_scm_make_subclass_object
 {
   SCM pl;

diff --git a/libguile/ports.c b/libguile/ports.c
index 8788ba8..fc6dc7f 100644 (file)
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -248,7 +248,7 @@ GUILE_PROC(scm_char_ready_p, "char-ready?", 0, 1, 0,
 /* Clear a port's read buffers, returning the contents.  */
 GUILE_PROC (scm_drain_input, "drain-input", 1, 0, 0, 
             (SCM port),
-            "")
+"")
 #define FUNC_NAME s_scm_drain_input
 {
   SCM result;

diff --git a/libguile/print.c b/libguile/print.c
index a700f80..42b8fbe 100644 (file)
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -184,7 +184,7 @@ static SCM print_state_pool;
 
 GUILE_PROC(scm_current_pstate, "current-pstate", 0, 0, 0, 
            (),
-           "")
+"")
 #define FUNC_NAME s_scm_current_pstate
 {
   return SCM_CADR (print_state_pool);

diff --git a/libguile/procs.c b/libguile/procs.c
index 88d30da..6099a2e 100644 (file)
--- a/libguile/procs.c
+++ b/libguile/procs.c
@@ -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, 
             (SCM obj),
-            "")
+"")
 #define FUNC_NAME s_scm_procedure_with_setter_p
 {
   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, 
             (SCM procedure, SCM setter),
-            "")
+"")
 #define FUNC_NAME s_scm_make_procedure_with_setter
 {
   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, 
             (SCM proc),
-            "")
+"")
 #define FUNC_NAME s_scm_procedure
 {
   SCM_VALIDATE_NIM (1,proc);

diff --git a/libguile/random.c b/libguile/random.c
index 5dac2b3..16e8341 100644 (file)
--- a/libguile/random.c
+++ b/libguile/random.c
@@ -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, 
             (SCM n, SCM state),
-            "")
+"")
 #define FUNC_NAME s_scm_random
 {
   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, 
             (SCM state),
-            "")
+"")
 #define FUNC_NAME s_scm_copy_random_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, 
             (SCM seed),
-            "")
+"")
 #define FUNC_NAME s_scm_seed_to_random_state
 {
   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, 
             (SCM state),
-            "")
+"")
 #define FUNC_NAME s_scm_random_uniform
 {
   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, 
             (SCM state),
-            "")
+"")
 #define FUNC_NAME s_scm_random_normal
 {
   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, 
             (SCM v, SCM state),
-            "")
+"")
 #define FUNC_NAME s_scm_random_solid_sphere_x
 {
   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, 
             (SCM v, SCM state),
-            "")
+"")
 #define FUNC_NAME s_scm_random_hollow_sphere_x
 {
   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, 
             (SCM state),
-            "")
+"")
 #define FUNC_NAME s_scm_random_exp
 {
   if (SCM_UNBNDP (state))

diff --git a/libguile/regex-posix.c b/libguile/regex-posix.c
index d00d003..f52c723 100644 (file)
--- a/libguile/regex-posix.c
+++ b/libguile/regex-posix.c
@@ -187,7 +187,7 @@ GUILE_PROC (scm_make_regexp, "make-regexp", 1, 0, 1,
 
 GUILE_PROC (scm_regexp_exec, "regexp-exec", 2, 2, 0, 
             (SCM rx, SCM str, SCM start, SCM flags),
-            "")
+"")
 #define FUNC_NAME s_scm_regexp_exec
 {
   int status, nmatches, offset;

diff --git a/libguile/simpos.c b/libguile/simpos.c
index 66981d7..0a57f6b 100644 (file)
--- a/libguile/simpos.c
+++ b/libguile/simpos.c
@@ -113,7 +113,7 @@ GUILE_PROC (scm_getenv, "getenv", 1, 0, 0,
 /* simple exit, without unwinding the scheme stack or flushing ports.  */
 GUILE_PROC (scm_primitive_exit, "primitive-exit", 0, 1, 0, 
             (SCM status),
-            "")
+"")
 #define FUNC_NAME s_scm_primitive_exit
 {
   int cstatus = 0;

diff --git a/libguile/socket.c b/libguile/socket.c
index e844e12..bc27785 100644 (file)
--- a/libguile/socket.c
+++ b/libguile/socket.c
@@ -73,7 +73,7 @@
 
 GUILE_PROC (scm_htons, "htons", 1, 0, 0, 
             (SCM in),
-            "")
+"")
 #define FUNC_NAME s_scm_htons
 {
   unsigned short c_in;
@@ -88,7 +88,7 @@ GUILE_PROC (scm_htons, "htons", 1, 0, 0,
 
 GUILE_PROC (scm_ntohs, "ntohs", 1, 0, 0, 
             (SCM in),
-            "")
+"")
 #define FUNC_NAME s_scm_ntohs
 {
   unsigned short c_in;
@@ -103,7 +103,7 @@ GUILE_PROC (scm_ntohs, "ntohs", 1, 0, 0,
 
 GUILE_PROC (scm_htonl, "htonl", 1, 0, 0, 
             (SCM in),
-            "")
+"")
 #define FUNC_NAME s_scm_htonl
 {
   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, 
             (SCM in),
-            "")
+"")
 #define FUNC_NAME s_scm_ntohl
 {
   unsigned long c_in = SCM_NUM2ULONG (1,in);

diff --git a/libguile/srcprop.c b/libguile/srcprop.c
index 16cfb40..7cd37ad 100644 (file)
--- a/libguile/srcprop.c
+++ b/libguile/srcprop.c
@@ -165,7 +165,7 @@ scm_srcprops_to_plist (SCM obj)
 
 GUILE_PROC (scm_source_properties, "source-properties", 1, 0, 0, 
             (SCM obj),
-            "")
+"")
 #define FUNC_NAME s_scm_source_properties
 {
   SCM p;

diff --git a/libguile/stime.c b/libguile/stime.c
index 5965b5d..06db124 100644 (file)
--- a/libguile/stime.c
+++ b/libguile/stime.c
@@ -155,7 +155,7 @@ timet scm_your_base = 0;
 
 GUILE_PROC(scm_get_internal_real_time, "get-internal-real-time", 0, 0, 0, 
            (),
-           "")
+"")
 #define FUNC_NAME s_scm_get_internal_real_time
 {
   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, 
             (void),
-            "")
+"")
 #define FUNC_NAME s_scm_gettimeofday
 {
 #ifdef HAVE_GETTIMEOFDAY

diff --git a/libguile/strop.c b/libguile/strop.c
index 2aa335f..996fd37 100644 (file)
--- a/libguile/strop.c
+++ b/libguile/strop.c
@@ -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, 
            (SCM str1, SCM start1, SCM end1, SCM str2, SCM start2),
-           "")
+"")
 #define FUNC_NAME s_scm_substring_move_x
 {
   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, 
            (SCM str, SCM start, SCM end, SCM fill),
-           "")
+"")
 #define FUNC_NAME s_scm_substring_fill_x
 {
   long i, e;

diff --git a/libguile/struct.c b/libguile/struct.c
index 289c83e..f667048 100644 (file)
--- a/libguile/struct.c
+++ b/libguile/struct.c
@@ -360,7 +360,7 @@ scm_struct_free_entity (SCM *vtable, SCM *data)
 
 GUILE_PROC (scm_make_struct, "make-struct", 2, 0, 1, 
             (SCM vtable, SCM tail_array_size, SCM init),
-            "")
+"")
 #define FUNC_NAME s_scm_make_struct
 {
   SCM layout;
@@ -642,7 +642,7 @@ scm_struct_create_handle (SCM obj)
 
 GUILE_PROC (scm_struct_vtable_name, "struct-vtable-name", 1, 0, 0, 
             (SCM vtable),
-            "")
+"")
 #define FUNC_NAME s_scm_struct_vtable_name
 {
   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, 
             (SCM vtable, SCM name),
-            "")
+"")
 #define FUNC_NAME s_scm_set_struct_vtable_name_x
 {
   SCM_VALIDATE_VTABLE(1,vtable);

diff --git a/libguile/symbols.c b/libguile/symbols.c
index 21e28ca..7bf7e34 100644 (file)
--- a/libguile/symbols.c
+++ b/libguile/symbols.c
@@ -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, 
            (SCM s, SCM val),
-           "")
+"")
 #define FUNC_NAME s_scm_symbol_fset_x
 {
   SCM_VALIDATE_SYMBOL(1,s);

diff --git a/libguile/variable.c b/libguile/variable.c
index 2d47ff6..db831f5 100644 (file)
--- a/libguile/variable.c
+++ b/libguile/variable.c
@@ -101,7 +101,7 @@ make_vcell_variable (SCM vcell)
 
 GUILE_PROC(scm_make_variable, "make-variable", 1, 1, 0, 
            (SCM init, SCM name_hint),
-           "")
+"")
 #define FUNC_NAME s_scm_make_variable
 {
   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, 
            (SCM name_hint),
-           "")
+"")
 #define FUNC_NAME s_scm_make_undefined_variable
 {
   SCM vcell;

diff --git a/libguile/vectors.c b/libguile/vectors.c
index b549bae..8b1d054 100644 (file)
--- a/libguile/vectors.c
+++ b/libguile/vectors.c
@@ -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, 
             (SCM vec1, SCM start1, SCM end1, SCM vec2, SCM start2),
-            "")
+"")
 #define FUNC_NAME s_scm_vector_move_left_x
 {
   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, 
             (SCM vec1, SCM start1, SCM end1, SCM vec2, SCM start2),
-            "")
+"")
 #define FUNC_NAME s_scm_vector_move_right_x
 {
   long i;

diff --git a/libguile/weaks.c b/libguile/weaks.c
index 7d88ae4..386b82f 100644 (file)
--- a/libguile/weaks.c
+++ b/libguile/weaks.c
@@ -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, 
            (SCM x),
-           "")
+"")
 #define FUNC_NAME s_scm_weak_key_hash_table_p
 {
   return SCM_BOOL(SCM_NIMP (x) && SCM_WVECTP (x) && SCM_IS_WHVEC(x));