diff options
author | Andy Wingo <wingo@pobox.com> | 2014-04-28 10:55:26 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2014-04-28 10:59:16 +0200 |
commit | ea4c2460e048a575fc9db0715a7f41881f2b39a5 (patch) | |
tree | 5b55ae9dc6f2cb9f09c429705afc9962581f2528 /libguile/foreign-object.h | |
parent | a7ee7f7cbf1042cf9e4b4c4f3b28b6759ccbce4f (diff) | |
download | guile-ea4c2460e048a575fc9db0715a7f41881f2b39a5.tar.gz |
Add scm_make_foreign_object_0; optimize scm_make_foreign_object_n.
* libguile/foreign-object.c (scm_make_foreign_object_0): New function.
(scm_make_foreign_object_n): Pre-fetch layout_chars.
* libguile/foreign-object.h: Add scm_make_foreign_object_0.
Diffstat (limited to 'libguile/foreign-object.h')
-rw-r--r-- | libguile/foreign-object.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/foreign-object.h b/libguile/foreign-object.h index fadb3b554..3b7784eb6 100644 --- a/libguile/foreign-object.h +++ b/libguile/foreign-object.h @@ -32,6 +32,7 @@ SCM_API SCM scm_make_foreign_object_type (SCM name, SCM slot_names, SCM_API void scm_assert_foreign_object_type (SCM type, SCM val); +SCM_API SCM scm_make_foreign_object_0 (SCM type); SCM_API SCM scm_make_foreign_object_1 (SCM type, scm_t_bits val0); SCM_API SCM scm_make_foreign_object_2 (SCM type, scm_t_bits val0, scm_t_bits val1); |