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"
_______________________________________________
Guile-user mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/guile-user
