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

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

Browse source 
* gh.h, gh_data.c (gh_symbol2scm): changed gh_symbol2scm() to take
	a const char * argument, upon suggestion from Lynn Winebarger.
This commit is contained in:
Mark Galassi 1999-10-26 19:38:05 +00:00
parent cd19d608b1
commit 4921140c64
3 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -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> 1999-10-26 Gary Houston <ghouston@freewire.co.uk>
* strports.c (st_end_input): avoid dubious pointer arithmetic. * strports.c (st_end_input): avoid dubious pointer arithmetic.

2
libguile/gh.h
View file

@ -106,7 +106,7 @@ SCM gh_char2scm(char c);
SCM gh_str2scm(char *s, int len); SCM gh_str2scm(char *s, int len);
SCM gh_str02scm(char *s); SCM gh_str02scm(char *s);
void gh_set_substr(char *src, SCM dst, int start, int len); 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_ints2scm(int *d, int n);
SCM gh_chars2byvect(char *d, int n); SCM gh_chars2byvect(char *d, int n);
SCM gh_shorts2svect(short *d, int n); SCM gh_shorts2svect(short *d, int n);

2
libguile/gh_data.c
View file

@ -120,7 +120,7 @@ gh_set_substr (char *src, SCM dst, int start, int len)
/* Return the symbol named SYMBOL_STR. */ /* Return the symbol named SYMBOL_STR. */
SCM SCM
gh_symbol2scm (char *symbol_str) gh_symbol2scm (const char *symbol_str)
{ {
return SCM_CAR (scm_intern (symbol_str, strlen (symbol_str))); return SCM_CAR (scm_intern (symbol_str, strlen (symbol_str)));
} }