diff options
author | Andy Wingo <wingo@pobox.com> | 2015-02-10 14:35:35 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2015-02-10 14:35:35 +0100 |
commit | 1bbf7f75805c10c4d7715853cd7d6c3e8226d5fc (patch) | |
tree | 4edc03e975df4cc1c02c5f797cbd9307f02f120a /libguile/smob.c | |
parent | 22c9e769f1240c7bbc69ccc0506ff68fe7e76653 (diff) | |
download | guile-1bbf7f75805c10c4d7715853cd7d6c3e8226d5fc.tar.gz |
Add `scm_smob_type_class()'.
* libguile/smob.h:
* libguile/smob.c (scm_smob_type_class): New function, to access the
GOOPS class for a SMOB type.
Diffstat (limited to 'libguile/smob.c')
-rw-r--r-- | libguile/smob.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/libguile/smob.c b/libguile/smob.c index 2a6c96f3a..eecefd3dc 100644 --- a/libguile/smob.c +++ b/libguile/smob.c @@ -443,6 +443,18 @@ scm_i_new_double_smob (scm_t_bits tc, scm_t_bits data1, return ret; } + + + +SCM +scm_smob_type_class (scm_t_bits tc) +{ + scm_load_goops (); + + return scm_i_smob_class[SCM_TC2SMOBNUM (tc)]; +} + + void scm_smob_prehistory () |