[Chicken-users] doto macro

[Martin DeMello]

I stole the doto macro from clojure. Quite useful for GUI code in
particular. It might make a nice addition to miscmacros too.

(define-syntax doto
  (lambda (f r c)
    (let [(s (cadr f))
          (forms (cddr f))]
      `(let [(x ,s)]
         ,@(map (lambda (form)
                  (if (list? form)
                    `(,(car form) x ,@(cdr form))
                    `(,form x)))
                forms)
         x))))

martin