diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-01-05 09:40:49 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-01-05 09:40:49 +0000 |
commit | 7688430d0584f4489b81a723dc78169546496352 (patch) | |
tree | 18ebea215403bc08944180610e533a1d7a299e32 /libguile/objects.h | |
parent | 98fae09612357fbf7efe3463d5cef35f6821b112 (diff) | |
download | guile-7688430d0584f4489b81a723dc78169546496352.tar.gz |
Correction of mistake (should have committed onto a branch...)
Diffstat (limited to 'libguile/objects.h')
-rw-r--r-- | libguile/objects.h | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/libguile/objects.h b/libguile/objects.h index e70c1a4a4..8f778838c 100644 --- a/libguile/objects.h +++ b/libguile/objects.h @@ -159,27 +159,9 @@ 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); |