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

Inline `scm_is_string'.

Browse source 
* libguile/strings.c (scm_is_string): Move to...
* libguile/inline.h (scm_is_string): ... here.  Inline.
This commit is contained in:
Ludovic Courtès 2010-12-16 15:20:10 +01:00
parent 18f06db925
commit 183f784947
2 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/inline.h
View file

@ -332,6 +332,14 @@ scm_is_pair (SCM x)
return SCM_I_CONSP (x); return SCM_I_CONSP (x);
} }
#ifndef SCM_INLINE_C_INCLUDING_INLINE_H
SCM_C_EXTERN_INLINE
#endif
int
scm_is_string (SCM x)
{
return SCM_NIMP (x) && (SCM_TYP7 (x) == scm_tc7_string);
}
/* Port I/O. */ /* Port I/O. */

5
libguile/strings.c
View file

@ -1405,11 +1405,6 @@ SCM_DEFINE (scm_string_append, "string-append", 0, 0, 1,
} }
#undef FUNC_NAME #undef FUNC_NAME
int
scm_is_string (SCM obj)
{
return IS_STRING (obj);
}
/* Conversion to/from other encodings. */ /* Conversion to/from other encodings. */