guile-user
[Top][All Lists]
Advanced

[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"






reply via email to

[Prev in Thread] Current Thread [Next in Thread]