[plt-scheme] Applicable operators as Swindle classes

Great!  Thanks a bunch---that's perfect.

Will

On 8 Jun 2005, at 1:45 AM, Eli Barzilay wrote:

> On Jun  8, Will M. Farr wrote:
>> I've been writing some code using Swindle, and I'm curious whether
>> there's a way to define a new swindle class whose instances are
>> applicable.  (Like instances of <generic> are applicable, but remain
>> instances of a class with slots, etc.)  I had a look at the Swindle
>> documentation and the code for some clues---I was thinking I could 
>> just
>> subclass <function> and set a particular slot to the lambda expression
>> I want when applying an instance---but it wasn't clear to me that this
>> would work.  Is there someone out there who has done this and could
>> give me some tips or point me to the right place in the code to clear
>> things up?
>
> You need to create an <entity-class>, which is the class for classes
> of applicable objects.  Then you need to use `set-instance-proc!' to a
> procedure which is used when the object is applied.  Example:
>
>   => (defclass <foo> () [x :initarg :x] :metaclass <entity-class>)
>   => (add-method initialize
>        (method ([foo <foo>] initargs)
>          (set-instance-proc! foo (lambda (x) (+ x (slot-ref foo 'x))))
>          (call-next-method)))
>   => (define x (make <foo> :x 1))
>   => (x 5)
>   6
>
> -- 
>           ((lambda (x) (x x)) (lambda (x) (x x)))          Eli 
> Barzilay:
>                   http://www.barzilay.org/                 Maze is 
> Life!