1999-10-26 Mark Galassi <rosalia@lanl.gov>

	* gh.h, gh_data.c (gh_symbol2scm): changed gh_symbol2scm() to take
	a const char * argument, upon suggestion from Lynn Winebarger.

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 6afd892..746ad83 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+1999-10-26  Mark Galassi  <rosalia@lanl.gov>
+
+       * gh.h, gh_data.c (gh_symbol2scm): changed gh_symbol2scm() to take
+       a const char * argument, upon suggestion from Lynn Winebarger.
+
 1999-10-26  Gary Houston  <ghouston@freewire.co.uk>
 
        * strports.c (st_end_input): avoid dubious pointer arithmetic.

diff --git a/libguile/gh.h b/libguile/gh.h
index 69fbad0..bf9d7d5 100644 (file)
--- a/libguile/gh.h
+++ b/libguile/gh.h
@@ -106,7 +106,7 @@ SCM gh_char2scm(char c);
 SCM gh_str2scm(char *s, int len);
 SCM gh_str02scm(char *s);
 void gh_set_substr(char *src, SCM dst, int start, int len);
-SCM gh_symbol2scm(char *symbol_str);
+SCM gh_symbol2scm(const char *symbol_str);
 SCM gh_ints2scm(int *d, int n);
 SCM gh_chars2byvect(char *d, int n);
 SCM gh_shorts2svect(short *d, int n);

diff --git a/libguile/gh_data.c b/libguile/gh_data.c
index b287bb4..805f03f 100644 (file)
--- a/libguile/gh_data.c
+++ b/libguile/gh_data.c
@@ -120,7 +120,7 @@ gh_set_substr (char *src, SCM dst, int start, int len)
 
 /* Return the symbol named SYMBOL_STR.  */
 SCM 
-gh_symbol2scm (char *symbol_str)
+gh_symbol2scm (const char *symbol_str)
 {
   return SCM_CAR (scm_intern (symbol_str, strlen (symbol_str)));
 }