diff options
| author | Konrad Hinsen <konrad.hinsen@fastmail.net> | 2010-09-03 21:32:12 +0200 |
|---|---|---|
| committer | Konrad Hinsen <konrad.hinsen@fastmail.net> | 2010-09-03 21:32:12 +0200 |
| commit | 67fccc60f2a547f272df858c7367ef805d123ffc (patch) | |
| tree | 76b1538ea7687f223d0140962528e2772dc3f2da /modules/macro-utils/src/test/clojure | |
| parent | 330807c6d93f9a3c2bad4c8f4dd6295b6cf2053e (diff) | |
macro-utils: don't expand symbols bound in the surrounding lexical environment
Diffstat (limited to 'modules/macro-utils/src/test/clojure')
| -rw-r--r-- | modules/macro-utils/src/test/clojure/clojure/contrib/test_macro_utils.clj | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/modules/macro-utils/src/test/clojure/clojure/contrib/test_macro_utils.clj b/modules/macro-utils/src/test/clojure/clojure/contrib/test_macro_utils.clj index 448898fa..d23c1ab9 100644 --- a/modules/macro-utils/src/test/clojure/clojure/contrib/test_macro_utils.clj +++ b/modules/macro-utils/src/test/clojure/clojure/contrib/test_macro_utils.clj @@ -64,3 +64,8 @@ '(do (+ 1 (clojure.core/+ 2 3))))) (ns-unmap *ns* 'sum-2-3)) +(deftest mexpand-all-test + (is (= (mexpand-all '(let [object (fn [] 3)] (object))) + '(let* [object (fn* ([] 3))] (object)))) + (is (= (mexpand-all '(let [or (fn [] 3)] (or))) + '(let* [or (fn* ([] 3))] (or))))) |