[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: goops classes for smobs
From: |
Marco Maggi |
Subject: |
Re: goops classes for smobs |
Date: |
Wed, 14 Nov 2007 06:48:35 +0100 |
Corrections... :(
"Marco Maggi" wrote:
>scm_make_extended_class_with_supers("my",
>scm_variable_ref("<number>"));
This must be:
scm_make_extended_class_with_supers("my",
scm_list_1(scm_variable_ref("<number>")));
and the change to 'scm_class_of()' must
be something like:
{
/* Goops object */
if (! scm_is_false (SCM_OBJ_CLASS_REDEF (x)))
scm_change_object_class (x, SCM_CLASS_OF (x),
SCM_OBJ_CLASS_REDEF (x));
if (SCM_SMOB_PREDICATE(multi_smob_driver, x))
{
SCM class =
((sub_smob_driver_t)SCM_SMOB_DATA_2(x))->class;
if (SCM_UNSPECIFIED != class)
return class;
}
return SCM_CLASS_OF (x);
}
--
Marco Maggi
"Now feel the funk blast!"
Rage Against the Machine - "Calm like a bomb"