annotate src/clojureDemo/import_java_fns.clj @ 8:0f48db8d2a05
going to upgrade to clojure 1.2
| author |
Robert McIntyre <rlm@mit.edu> |
| date |
Sat, 21 Aug 2010 03:21:22 -0400 |
| parents |
6d9bdaf919f7 |
| children |
|
| rev |
line source |
|
rlm@1
|
1 (ns clojureDemo.import-java-fns)
|
|
rlm@1
|
2
|
|
rlm@1
|
3
|
|
rlm@1
|
4
|
|
rlm@1
|
5 (defmacro single-arg-fn [package fun]
|
|
rlm@1
|
6 (let [name (symbol (str package "/" fun))]
|
|
rlm@1
|
7 `(defn ~fun [a#] (~name a#))))
|
|
rlm@1
|
8
|
|
rlm@1
|
9 (defmacro java-map [package & fns]
|
|
rlm@1
|
10 `(do ~@(map #(list 'single-arg-fn package %) fns)))
|
