diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-11-02 20:15:32 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-11-02 20:15:32 +0000 |
commit | d44ff083ea4dd094aba9d12aa74618e076680b16 (patch) | |
tree | 3198e3dc244a6689be352cb8c291f9677bb4fbb6 /libguile/srfi-4.c | |
parent | 034486df89c86965773eb76954c9a2fa33bb3163 (diff) | |
download | guile-d44ff083ea4dd094aba9d12aa74618e076680b16.tar.gz |
* srfi-4.h, srfi-4.c (scm_frame_uniform_vector_release): New.
* unif.c (scm_bit_set_star_x, scm_bit_count_star_x): Use it to get
more efficient access to the u32vector.
Diffstat (limited to 'libguile/srfi-4.c')
-rw-r--r-- | libguile/srfi-4.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/libguile/srfi-4.c b/libguile/srfi-4.c index fc88ff1a9..eb1cbe5c6 100644 --- a/libguile/srfi-4.c +++ b/libguile/srfi-4.c @@ -569,6 +569,13 @@ scm_uniform_vector_release (SCM uvec) */ } +void +scm_frame_uniform_vector_release (SCM uvec) +{ + scm_frame_unwind_handler_with_scm (scm_uniform_vector_release, uvec, + SCM_F_WIND_EXPLICITLY); +} + size_t scm_uniform_vector_element_size (SCM uvec) { |