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.h | |
| 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.h')
| -rw-r--r-- | libguile/smob.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/libguile/smob.h b/libguile/smob.h index 0e59f89d0..561a6d124 100644 --- a/libguile/smob.h +++ b/libguile/smob.h @@ -4,7 +4,7 @@ #define SCM_SMOB_H /* Copyright (C) 1995, 1996, 1998, 1999, 2000, 2001, 2004, 2006, 2009, - * 2010, 2011, 2012 Free Software Foundation, Inc. + * 2010, 2011, 2012, 2015 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -190,6 +190,8 @@ SCM_API void scm_set_smob_apply (scm_t_bits tc, unsigned int opt, unsigned int rst); +SCM_API SCM scm_smob_type_class (scm_t_bits tc); + SCM_API void scm_assert_smob_type (scm_t_bits tag, SCM val); /* Function for creating smobs */ |