summaryrefslogtreecommitdiff
path: root/libguile/inline.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/inline.h')
-rw-r--r--libguile/inline.h13
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