BT Templeton <bpt@hcoo...> writes:

> Mark H Weaver <mhw@netr...> writes:
>
>> Hello all,
>>
>> I was chatting with the folks working on Python-on-Guile, and it seems
>> clear that they need the ability to create GOOPS objects that can
>> emulate procedures.  Otherwise they will probably end up creating an
>> entirely separate object system for Python, which would obviously be
>> suboptimal.
[...]
>
> GOOPS defines an <applicable-struct-class> metaclass for this (similar
> to AMOP's funcallable-standard-class):
>
> scheme@(guile-user)> (define-class <foo> (<applicable-struct>))
> scheme@(guile-user)> ((make <foo> #:procedure car) '(1 2))
> $1 = 1
>
> Would it work to simply have all Python metaclasses inherit from
> <applicable-struct-class>?

Yes, I believe it will.  Thanks very much! :)

    Mark


PS: I notice that there's also 'scm_class_applicable_struct_with_setter'
    which is exported as SCM_API, but was apparently never implemented
    and is always NULL.