Convert files to packages
This commit is contained in:
parent
b1a6bb4290
commit
c40fb9f504
12 changed files with 48 additions and 45 deletions
13
05macros.el
Normal file
13
05macros.el
Normal file
|
|
@ -0,0 +1,13 @@
|
|||
;;; 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
|
||||
Loading…
Add table
Add a link
Reference in a new issue