[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Chicken-users] doto macro
From: |
Felix |
Subject: |
Re: [Chicken-users] doto macro |
Date: |
Thu, 05 Aug 2010 04:27:03 -0400 (EDT) |
From: Martin DeMello <address@hidden>
Subject: [Chicken-users] doto macro
Date: Thu, 5 Aug 2010 01:37:06 +0530
> 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))))
>
Now, this is nice indeed. Thanks!
cheers,
felix