At Fri, 17 Mar 2006 08:04:45 +0100, felix winkelmann wrote:
> 
> On 3/17/06, Alex Shinn <[EMAIL PROTECTED]> wrote:
> >
> > Unfortunately Chicken currently segfaults when you MAKE an inherited
> > instance of <generic>:
> >
> > $ csi -q
> > #;1> (define x (make-class (list <generic>) (list)))
> > #;2> (make x)
> > $
> >
> 
> May it be possible that you have to use <entity-class> as your
> metaclass, i.e.?
> 
> (define-class <my-generic> (<generic>) () <entity-class>)

Ah, that does the trick, thanks Felix!

Just replace

  (define <value-generic> <generic>)

with

  (define-class <value-generic> (<generic>) () <entity-class>)

and it works without slowing down other generics.

-- 
Alex


_______________________________________________
Chicken-users mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/chicken-users

Reply via email to