summaryrefslogtreecommitdiff
path: root/libguile/unif.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/unif.h')
-rw-r--r--libguile/unif.h21
1 files changed, 13 insertions, 8 deletions
diff --git a/libguile/unif.h b/libguile/unif.h
index 5fce7b467..932ceec82 100644
--- a/libguile/unif.h
+++ b/libguile/unif.h
@@ -93,14 +93,6 @@ extern long scm_tc16_array;
#define SCM_BITVECTOR_BASE(x) ((void *) (SCM_CELL_WORD_1 (x)))
#define SCM_BITVECTOR_LENGTH(x) (((unsigned long) SCM_CELL_WORD_0 (x)) >> 8)
-/* apparently it's possible to have more than SCM_LENGTH_MAX elements
- in an array: if the length is SCM_LENGTH_MAX then the SCM_VELTS
- block begins with the true length (a long int). I wonder if it
- works. */
-
-#define SCM_HUGE_LENGTH(x)\
- (SCM_LENGTH_MAX==SCM_LENGTH(x) ? *((long *)SCM_VELTS(x)) : SCM_LENGTH(x))
-
extern scm_sizet scm_uniform_element_size (SCM obj);
@@ -140,6 +132,19 @@ extern int scm_raprin1 (SCM exp, SCM port, scm_print_state *pstate);
extern SCM scm_array_prototype (SCM ra);
extern void scm_init_unif (void);
+
+
+#if (SCM_DEBUG_DEPRECATED == 0)
+
+/* apparently it's possible to have more than SCM_LENGTH_MAX elements
+ in an array: if the length is SCM_LENGTH_MAX then the SCM_VELTS
+ block begins with the true length (a long int). I wonder if it
+ works. */
+#define SCM_HUGE_LENGTH(x)\
+ (SCM_LENGTH_MAX==SCM_LENGTH(x) ? *((long *)SCM_VELTS(x)) : SCM_LENGTH(x))
+
+#endif /* SCM_DEBUG_DEPRECATED == 0 */
+
#endif /* UNIFH */
/*