mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-22 19:44:10 +02:00
Code Activity

(SCM_CHARS, SCM_UCHARS, SCM_LENGTH, scm_i_object_chars,

Browse source 
scm_i_object_length): Brought back from the dead.
This commit is contained in:
Marius Vollmer 2005-01-10 17:42:23 +00:00
parent 3d8bccbd81
commit a725fa951c
2 changed files with 36 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

27
libguile/deprecated.c
View file

@ -651,6 +651,33 @@ scm_strprint_obj (SCM obj)
return scm_object_to_string (obj, SCM_UNDEFINED);
}
char *
scm_i_object_chars (SCM obj)
{
scm_c_issue_deprecation_warning
("SCM_CHARS is deprecated. See the manual for alternatives.");
if (SCM_STRINGP (obj))
return SCM_STRING_CHARS (obj);
if (SCM_SYMBOLP (obj))
return SCM_SYMBOL_CHARS (obj);
abort ();
}
long
scm_i_object_length (SCM obj)
{
scm_c_issue_deprecation_warning
("SCM_LENGTH is deprecated. "
"Use scm_c_string_length instead, for example, or see the manual.");
if (SCM_STRINGP (obj))
return SCM_STRING_LENGTH (obj);
if (SCM_SYMBOLP (obj))
return SCM_SYMBOL_LENGTH (obj);
if (SCM_VECTORP (obj))
return SCM_VECTOR_LENGTH (obj);
abort ();
}
SCM
scm_sym2ovcell_soft (SCM sym, SCM obarray)
{