6 lines
213 B
EmacsLisp
6 lines
213 B
EmacsLisp
(defmacro -> (&rest body)
|
|
"Clojure -> macro for BODY."
|
|
(let ((result (pop body)))
|
|
(dolist (form body result)
|
|
(setq result (append (list (car form) result)
|
|
(cdr form))))))
|