13 lines
308 B
EmacsLisp
13 lines
308 B
EmacsLisp
;;; 05macros -- 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 '05macros)
|
|
;;; 05macros ends here
|