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

* inline.h, pairs.c (scm_is_pair): Moved scm_is_pair from pairs.c

Browse source 
to inline.h to make it inline.
This commit is contained in:
Marius Vollmer 2006-01-28 22:01:35 +00:00
parent fd0a5bbcb7
commit d5ad4aa6fa
2 changed files with 16 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

16
libguile/inline.h
View file

@ -35,6 +35,7 @@
#include "libguile/gc.h" #include "libguile/gc.h"
#include "libguile/threads.h" #include "libguile/threads.h"
#include "libguile/unif.h" #include "libguile/unif.h"
#include "libguile/pairs.h"
SCM_API SCM scm_cell (scm_t_bits car, scm_t_bits cdr); SCM_API SCM scm_cell (scm_t_bits car, scm_t_bits cdr);
@ -235,5 +236,20 @@ scm_array_handle_set (scm_t_array_handle *h, ssize_t p, SCM v)
h->set (h, p, v); h->set (h, p, v);
} }
#if defined SCM_C_INLINE && ! defined SCM_INLINE_C_INCLUDING_INLINE_H
/* definitely inlining */
#ifdef __GNUC__
extern
#else
static
#endif
SCM_C_INLINE
#endif
int
scm_is_pair (SCM x)
{
return SCM_I_CONSP (x);
}
#endif #endif
#endif #endif

6
libguile/pairs.c
View file

@ -78,12 +78,6 @@ SCM_DEFINE (scm_pair_p, "pair?", 1, 0, 0,
} }
#undef FUNC_NAME #undef FUNC_NAME
int
scm_is_pair (SCM x)
{
return SCM_I_CONSP (x);
}
SCM SCM
scm_car (SCM pair) scm_car (SCM pair)
{ {