chicken-users
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]