diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-10-30 11:42:26 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-10-30 11:42:26 +0000 |
commit | a6d9e5abe5b110dc30e8cf914bcb4de4d28baf43 (patch) | |
tree | d5a3679c885a17f8469801bc97897a80ae48f1d6 /libguile/unif.h | |
parent | e9bfab50e4ec7787db05605727a06f98fe30f5b6 (diff) | |
download | guile-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.h | 21 |
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 */ /* |