Re: with-slot syntax how to

[Marco Maggi]

damn:

(define-syntax with-slots
  (syntax-rules ()
    ;;this  is here  only to  let  me remove  the bindings
while
    ;;debugging the form
    ((_ ((() () ?object)) ?form ...)
     (begin ?form ...))

    ((_ (((?sym ...) (?slot ...) ?object)) ?form ...)
     (let ((?sym (slot-ref ?object '?slot))
           ...)
       ?form ...))

    ((_ (((?sym1 ...) (?slot1 ...) ?object1)
         ((?sym2 ...) (?slot2 ...) ?object2)
         ...) ?form ...)
     (with-slots (((?sym1 ...) (?slot1 ...) ?object1))
       (with-slots (((?sym2 ...) (?slot2 ...) ?object2) ...)
         ?form ...)))))

--
Marco Maggi

"Now feel the funk blast!"
Rage Against the Machine - "Calm like a bomb"