diff options
Diffstat (limited to 'libguile/hashtab.h')
-rw-r--r-- | libguile/hashtab.h | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/libguile/hashtab.h b/libguile/hashtab.h index 441716f08..301d9f1bc 100644 --- a/libguile/hashtab.h +++ b/libguile/hashtab.h @@ -55,7 +55,12 @@ extern scm_t_bits scm_tc16_hashtable; #define SCM_HASHTABLE_N_ITEMS(x) (SCM_HASHTABLE (x)->n_items) #define SCM_SET_HASHTABLE_N_ITEMS(x, n) (SCM_HASHTABLE (x)->n_items = n) #define SCM_HASHTABLE_INCREMENT(x) (SCM_HASHTABLE_N_ITEMS(x)++) +#if 0 #define SCM_HASHTABLE_DECREMENT(x) (SCM_HASHTABLE_N_ITEMS(x)--) +#else +SCM_API void scm_i_hashtable_decrement (SCM h); +#define SCM_HASHTABLE_DECREMENT(x) scm_i_hashtable_decrement(x) +#endif #define SCM_HASHTABLE_UPPER(x) (SCM_HASHTABLE (x)->upper) #define SCM_HASHTABLE_LOWER(x) (SCM_HASHTABLE (x)->lower) |