summaryrefslogtreecommitdiff
path: root/libguile/srfi-4.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-11-02 20:15:32 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-11-02 20:15:32 +0000
commitd44ff083ea4dd094aba9d12aa74618e076680b16 (patch)
tree3198e3dc244a6689be352cb8c291f9677bb4fbb6 /libguile/srfi-4.c
parent034486df89c86965773eb76954c9a2fa33bb3163 (diff)
downloadguile-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.c7
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)
{