summaryrefslogtreecommitdiff
path: root/libguile/unif.h
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-10-30 11:42:26 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-10-30 11:42:26 +0000
commita6d9e5abe5b110dc30e8cf914bcb4de4d28baf43 (patch)
treed5a3679c885a17f8469801bc97897a80ae48f1d6 /libguile/unif.h
parente9bfab50e4ec7787db05605727a06f98fe30f5b6 (diff)
downloadguile-a6d9e5abe5b110dc30e8cf914bcb4de4d28baf43.tar.gz
* Change a couple of functions to accept either symbols or strings only.
* Get rid of remainig uses of SCM_LENGTH etc.
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 */
/*