[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Chicken-users] doto macro
From: |
Martin DeMello |
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))))
martin
- [Chicken-users] doto macro,
Martin DeMello <=