13 lines
306 B
EmacsLisp
13 lines
306 B
EmacsLisp
;;; macros -- summary
|
|
;;; Commentary:
|
|
;;; Code:
|
|
|
|
(defmacro -> (&rest body)
|
|
"Clojure -> macro for BODY."
|
|
(let ((result (pop body)))
|
|
(dolist (form body result)
|
|
(setq result (append (list (car form) result)
|
|
(cdr form))))))
|
|
|
|
(provide 'pkg/macros)
|
|
;;; macros ends here
|