;;; 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