diff options
Diffstat (limited to 'vim/bundle/slimv/swank-clojure/swank/clj_contrib/macroexpand.clj')
-rw-r--r-- | vim/bundle/slimv/swank-clojure/swank/clj_contrib/macroexpand.clj | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/vim/bundle/slimv/swank-clojure/swank/clj_contrib/macroexpand.clj b/vim/bundle/slimv/swank-clojure/swank/clj_contrib/macroexpand.clj new file mode 100644 index 0000000..8cb052b --- /dev/null +++ b/vim/bundle/slimv/swank-clojure/swank/clj_contrib/macroexpand.clj @@ -0,0 +1,17 @@ +(ns swank.clj-contrib.macroexpand) + +(def + #^{:private true} + walk-enabled? + (.getResource (clojure.lang.RT/baseLoader) "clojure/contrib/macro_utils.clj")) + +(when walk-enabled? + (require 'clojure.contrib.macro-utils)) + +(defmacro macroexpand-all* [form] + (if walk-enabled? + `(clojure.contrib.macro-utils/mexpand-all ~form) + `(macroexpand ~form))) + +(defn macroexpand-all [form] + (macroexpand-all* form))
\ No newline at end of file |