Make type names char const * instead of char *. Thanks to Paul Jarc!

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index da7b12c..a8dd7ee 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-07  Marius Vollmer  <mvo@zagadka.de>
+
+       * goops.c, objects.h, smob.c, smob.h: Make type names char
+        const * instead of char *.  Thanks to Paul Jarc!
+
 2003-10-02  Kevin Ryde  <user42@zip.com.au>
 
        * strports.c (s_scm_call_with_output_string): scm_get_output_string

diff --git a/libguile/goops.c b/libguile/goops.c
index 44da20e..cccdf20 100644 (file)
--- a/libguile/goops.c
+++ b/libguile/goops.c
@@ -2435,7 +2435,7 @@ create_standard_classes (void)
  **********************************************************************/
 
 static SCM
-make_class_from_template (char *template, char *type_name, SCM supers, int applicablep)
+make_class_from_template (char const *template, char const *type_name, SCM supers, int applicablep)
 {
   SCM class, name;
   if (type_name)
@@ -2462,7 +2462,7 @@ make_class_from_template (char *template, char *type_name, SCM supers, int appli
 }
 
 SCM
-scm_make_extended_class (char *type_name, int applicablep)
+scm_make_extended_class (char const *type_name, int applicablep)
 {
   return make_class_from_template ("<%s>",
                                   type_name,

diff --git a/libguile/objects.h b/libguile/objects.h
index d500c9a..3217df0 100644 (file)
--- a/libguile/objects.h
+++ b/libguile/objects.h
@@ -197,7 +197,7 @@ SCM_API SCM *scm_smob_class;
 SCM_API SCM scm_no_applicable_method;
 
 /* Goops functions. */
-SCM_API SCM scm_make_extended_class (char *type_name, int applicablep);
+SCM_API SCM scm_make_extended_class (char const *type_name, int applicablep);
 SCM_API void scm_i_inherit_applicable (SCM c);
 SCM_API void scm_make_port_classes (long ptobnum, char *type_name);
 SCM_API void scm_change_object_class (SCM, SCM, SCM);

diff --git a/libguile/smob.c b/libguile/smob.c
index c73b2a9..8153d44 100644 (file)
--- a/libguile/smob.c
+++ b/libguile/smob.c
@@ -269,7 +269,7 @@ scm_smob_apply_3_error (SCM smob,
 \f
 
 scm_t_bits 
-scm_make_smob_type (char *name, size_t size)
+scm_make_smob_type (char const *name, size_t size)
 #define FUNC_NAME "scm_make_smob_type"
 {
   long new_smob;

diff --git a/libguile/smob.h b/libguile/smob.h
index 279e0cb..3ca8de8 100644 (file)
--- a/libguile/smob.h
+++ b/libguile/smob.h
@@ -30,7 +30,7 @@
 
 typedef struct scm_smob_descriptor
 {
-  char *name;
+  char const *name;
   size_t size;
   SCM (*mark) (SCM);
   size_t (*free) (SCM);