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

hy.contrib.walk: Add (macroexpand-all)

Browse Source 
This function will recursively perform all possible macroexpansions in
the supplied form. Unfortunately, it also traverses into quasiquoted
parts, where it shouldn't, but it is a useful estimation of macro
expansion anyway.

Signed-off-by: Gergely Nagy <algernon@madhouse-project.org>
This commit is contained in:
Gergely Nagy 2014-01-26 03:59:47 +01:00
parent 817b4688d8
commit fa24042cb0
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hy/contrib/walk.hy
View File

@ -45,3 +45,11 @@
"Performs depth-first, pre-order traversal of form. Calls f on each "Performs depth-first, pre-order traversal of form. Calls f on each
sub-form, uses f's return value in place of the original." sub-form, uses f's return value in place of the original."
(walk (partial prewalk f) identity (f form))) (walk (partial prewalk f) identity (f form)))
(defn macroexpand-all [form]
"Recursively performs all possible macroexpansions in form."
(prewalk (fn [x]
(if (instance? HyExpression x)
(macroexpand x)
x))
form))

4
tests/native_tests/contrib/walk.hy
View File

@ -22,3 +22,7 @@
(assert (= (walk identity (partial collector acc) walk-form) (assert (= (walk identity (partial collector acc) walk-form)
nil)) nil))
(assert (= acc [walk-form])))) (assert (= acc [walk-form]))))
(defn test-macroexpand-all []
(assert (= (macroexpand-all '(with [a b c] (for [d c] foo)))
'(with* [a] (with* [b] (with* [c] (do (for* [d c] foo))))))))