mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 16:20:17 +02:00
Code Activity

add SCM_SMOB_TYPE_BITS and SCM_SMOB_TYPE_MASK

Browse source 
* libguile/smob.h (SCM_SMOB_TYPE_BITS, SCM_SMOB_TYPE_MASK): New macros,
  for when you want to identify a SMOB by type and mask.

* libguile/arrays.c:
* libguile/bitvectors.c:
* libguile/srfi-4.c: Use the new macros.
This commit is contained in:
Andy Wingo 2009-12-08 22:53:21 +01:00
parent 75a029aa25
commit 735bcfe579
4 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/arrays.c
View file

@ -1126,7 +1126,8 @@ array_get_handle (SCM array, scm_t_array_handle *h)
h->base = SCM_I_ARRAY_BASE (array);
}
SCM_ARRAY_IMPLEMENTATION (scm_i_tc16_array, 0xffff,
SCM_ARRAY_IMPLEMENTATION (SCM_SMOB_TYPE_BITS (scm_i_tc16_array),
SCM_SMOB_TYPE_MASK,
array_handle_ref, array_handle_set,
array_get_handle);