Yaltik/hy
2
0
Fork 0
Code Pull Requests Releases Activity

initial implementation for doto macro

Browse Source 
relates #567
This commit is contained in:
Tuukka Turto 2014-04-21 08:04:03 +03:00
parent a76c3d1f51
commit 21cff9d14f
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
hy/core/macros.hy
View File

@ -127,6 +127,16 @@
ret) ret)
(defmacro doto [form &rest expressions]
(setv expressions (iter expressions))
(defn build-form [form expression]
`(~(first expression) ~form ~@(rest expression)))
(setv result `())
(for* [expression expressions]
(.append result (build-form form expression)))
`(do ~@result))
(defmacro ->> [head &rest rest] (defmacro ->> [head &rest rest]
;; TODO: fix the docstring by someone who understands this ;; TODO: fix the docstring by someone who understands this
(setv ret head) (setv ret head)