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

scm_is_string is a normal inline function

Browse source 
* libguile/strings.h (scm_is_string): Change to be static inline.
* libguile/inline.c: No need to include strings.h
This commit is contained in:
Andy Wingo 2025-06-20 16:46:15 +02:00
parent 9fd851da65
commit 342a58ad36
2 changed files with 1 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/inline.c
View file

@ -28,4 +28,3 @@
#include "chars.h" #include "chars.h"
#include "pairs.h" #include "pairs.h"
#include "ports.h" #include "ports.h"
#include "strings.h"

9
libguile/strings.h
View file

@ -24,7 +24,6 @@
#include <libguile/gc.h> #include <libguile/gc.h>
#include <libguile/error.h> #include <libguile/error.h>
#include "libguile/inline.h"
#include <libguile/snarf.h> #include <libguile/snarf.h>
@ -105,7 +104,6 @@ SCM_INTERNAL SCM scm_nullstr;
SCM_INTERNAL scm_t_string_failed_conversion_handler SCM_INTERNAL scm_t_string_failed_conversion_handler
scm_i_default_string_failed_conversion_handler (void); scm_i_default_string_failed_conversion_handler (void);
SCM_INLINE int scm_is_string (SCM x);
SCM_API SCM scm_string_p (SCM x); SCM_API SCM scm_string_p (SCM x);
SCM_API SCM scm_string (SCM chrs); SCM_API SCM scm_string (SCM chrs);
SCM_API SCM scm_make_string (SCM k, SCM chr); SCM_API SCM scm_make_string (SCM k, SCM chr);
@ -277,17 +275,12 @@ SCM_API SCM scm_sys_stringbuf_hist (void);
#if SCM_CAN_INLINE || defined SCM_INLINE_C_IMPLEMENTING_INLINES static inline int
/* Either inlining, or being included from inline.c. */
SCM_INLINE_IMPLEMENTATION int
scm_is_string (SCM x) scm_is_string (SCM x)
{ {
return SCM_HAS_TYP7 (x, scm_tc7_string); return SCM_HAS_TYP7 (x, scm_tc7_string);
} }
#endif