mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 23:50:19 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Mikael Djurfeldt 1999-01-05 09:25:59 +00:00
parent e1f2bf99e9
commit 98fae09612
6 changed files with 207 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

18
libguile/objects.h
View file

@ -159,9 +159,27 @@ struct scm_metaclass_operator {
*/
#define SCM_ENTITY_LAYOUT ""
/* The following three definitions are Goops dependencies needed by
scm_class_of. */
#define SCM_CLASSF_GOOPS (0x10 << 24)
#define scm_si_redefined 17
#define scm_si_hashsets 19
#define SCM_CLASS_OF(x) SCM_STRUCT_VTABLE (x)
#define CLASS_REDEF(c) (SCM_STRUCT_DATA(c)[scm_si_redefined])
extern SCM scm_metaclass_standard;
extern SCM scm_metaclass_operator;
extern SCM scm_class_boolean, scm_class_char, scm_class_pair;
extern SCM scm_class_procedure, scm_class_string, scm_class_symbol;
extern SCM scm_class_vector, scm_class_null;
extern SCM scm_class_real, scm_class_complex, scm_class_integer;
extern SCM scm_class_keyword, scm_class_unknown;
extern void (*scm_change_object_class) (SCM, SCM, SCM);
extern void (*scm_memoize_method) (SCM x, SCM args);
extern SCM scm_class_of (SCM obj);
extern SCM scm_entity_p (SCM obj);
extern SCM scm_set_object_procedure_x (SCM obj, SCM procs);
extern SCM scm_make_class_object (SCM metaclass, SCM layout);