diff options
Diffstat (limited to 'libguile/inline.h')
-rw-r--r-- | libguile/inline.h | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/libguile/inline.h b/libguile/inline.h index c1df037c3..ea6b51277 100644 --- a/libguile/inline.h +++ b/libguile/inline.h @@ -50,10 +50,6 @@ */ -#if (SCM_DEBUG_CELL_ACCESSES == 1) -#include <stdio.h> -#endif - #include "libguile/pairs.h" #include "libguile/gc.h" @@ -64,8 +60,6 @@ SCM_API SCM scm_double_cell (scm_t_bits car, scm_t_bits cbr, #ifdef HAVE_INLINE - - #ifndef EXTERN_INLINE #define EXTERN_INLINE extern inline #endif @@ -74,6 +68,7 @@ extern unsigned scm_newcell2_count; extern unsigned scm_newcell_count; + EXTERN_INLINE SCM scm_cell (scm_t_bits car, scm_t_bits cdr) @@ -137,6 +132,10 @@ scm_cell (scm_t_bits car, scm_t_bits cdr) #endif +#if (SCM_DEBUG_CELL_ACCESSES == 1) + if (scm_expensive_debug_cell_accesses_p ) + scm_i_expensive_validation_check (z); +#endif return z; } @@ -201,5 +200,7 @@ scm_double_cell (scm_t_bits car, scm_t_bits cbr, return z; } + + #endif #endif |