[plt-scheme] with-slots patch

Momchil Velikov wrote:
> (require (lib "swindle.ss" "swindle"))
> 
> (defclass <foo> (<object>) (x :initvalue 0))
> (define a (make <foo>))
> (with-slots a ((y x)) (display y))
> 
> The above needs the following patch in order to work.

Ok, I guess it was meant to be used like

  (with-slots a ((y 'x)) (display y)

nevermind ...