mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

(SCM_SYMBOL_CHARS): Cast away const in return.

Browse source 
(SCM_SYMBOL_LENGTH): It's scm_i_symbol_length, not
scm_c_symbol_length.
This commit is contained in:
Marius Vollmer 2004-08-19 20:36:29 +00:00
parent ece721f031
commit ba16a103a4
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/deprecated.c
View file

@ -1181,7 +1181,7 @@ SCM_SYMBOL_CHARS (SCM sym)
scm_c_issue_deprecation_warning scm_c_issue_deprecation_warning
("SCM_SYMBOL_CHARS is deprecated. Use scm_symbol_to_string."); ("SCM_SYMBOL_CHARS is deprecated. Use scm_symbol_to_string.");
return scm_i_symbol_chars (sym); return (char *)scm_i_symbol_chars (sym);
} }
size_t size_t
@ -1189,7 +1189,7 @@ SCM_SYMBOL_LENGTH (SCM sym)
{ {
scm_c_issue_deprecation_warning scm_c_issue_deprecation_warning
("SCM_SYMBOL_LENGTH is deprecated. Use scm_symbol_to_string."); ("SCM_SYMBOL_LENGTH is deprecated. Use scm_symbol_to_string.");
return scm_c_symbol_length (sym); return scm_i_symbol_length (sym);
} }
void void