[plt-scheme] with-slots patch

(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.  Also, wouldn't it 
be more appropriate to match the CLOS syntax, i.e.

(with-slots (slot ...) obj body ...) ?

~velco
-------------- next part --------------
A non-text attachment was scrubbed...
Name: with-slots.diff
Type: text/x-patch
Size: 1064 bytes
Desc: not available
URL: <http://lists.racket-lang.org/users/archive/attachments/20040930/cd4fba7f/attachment.bin>